
o 


V 4.1 


08/17/74 0453 


,;,Q 

f'o 



.:.: 9 o 

. % ... : .:.:.*...;.■ o 

P n | 

MEMGRY PARITY ERROR - ^ 

NORMAL" END......-.: 

NOT READY .. _ 

.PROTECT. VIOLATION.. M .^ ,, ,..^ «' ... O 

.;."...- O 

.....I O 

.:. _....... w ..... I O 

“ .’.’. : .... : ."....“.~.;.....o 

i. 

.. : .■.-.:.;.‘/... w ;^ v .-.-. t - 0 

.. J., /...;._. : ... u ....•:.;.......o 

.~.?. : .*.5..".^..... ] .*.. 7 .....;.?..: o 

.....^.....:..:.’....._.O 

.. ; ..•..f-.;.■..\v..*. 7 . 7 o 

..:..'......Vi. t o 
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CD 


Cl 


o 

o 

Q 

o 

o 

o 

o 

o 

o 

Q: 

d 1 


10 * 


o, 

o r 

7 

o, 

O’ 


PAGE 

o 

£ 

UIO 


80 

81 

.H ? .. 


EXT 

EXT 

......■.£XT....-. 

F CRMF LAG 
FREE0LK 

.FRFrFTI F. 

83 

34 


EXT 

EXT 

FREEMEN 

GETCORE 

8 5 

86 

87 


.*..EXT ..' . 

EXT 

EXT 

GET MEM 
HOUR 

10 .■. 

~.88. 

89 

.g.O. 


.*.EXT. 

EXT 

._...fxt.—.- 

11 

12 

_13_:... 

91 

92 


EXT 

EXT 

I030UND 

IOCL EAR 


EXT 

EXT 

EXT 

EXT. 

EXT 

EXT¬ 

EXT 

EXT 

EXT 

EXT 

EXT 



1 -OSET—"' 
INBOUND 
INTPDL 
IS 

LI3M0VE 
L JA 


113 

114 

1'1'4'+'Q'Q1- 


LUNLIST 

MAXDEST 

MSFRE-AB— 

MSFWRITE 

MTLIMIT 

.M TWA IT. 

NBIT 17 

NBIT18- 

N BIT 1920 
NBIT 2 0 

ir 8 TT 2 t~~ 

N SIT 2 2 
N BIT 2 3 
NQWAIT 
OUTBOUND 
PAGET-ABL 
PC 

P CHARS 
PDP8CTLX 


118. 

119 

120 
1 El- 
122 

123 

124 

125 
- 1 - 2 - 6 - 

127 

12 e 

129 

130 

131 

.132. 

133 

134 . 

135 

136 

137 

13 £ 
139 


140 

141 

142 . 

143 

144 

145 

146 

147 


EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EX-T¬ 

EXT 

EXT 

“EXT¬ 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 


EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 


QWAIT. 

RESERVE 
RETURN 
“REWRTTE— 
REWRITEX 
RMCHAIN 
RHDONE 
RHTERM 
RPSAPIR 
SCREAM 
SEL8LK 
“STLECr— 
SETN 
SETUP 
S F3LKLIM 
S F8LKMAX 

SF3LKS. 

SW3IT 
SYSCM 
SYSCODE 
T 1 
T 2 
T 3 
T 4 
T 5 
T 6 

T 8 K 3 P 
TERMINAL 
TF3LKS 
T FWSP 


151 

152 

153 

154 


EXT 

EXT 

EXT 

EXT 


TS 8 PFM 
TSFPFM 
T STATUS 
TTCNT 


. 


a 
a 

da* 

V’O) 

1,0 

vo 

>m 0 t 

;,o 

to 

r O 


114+002 

EXT 

PDP80Q 


115 

EXT 

PSASLK 


116... 

EXT 

Q 


117 

EXT 

QTABLE 




~ - 148 ’ ~ 

.EXT. 

“.T PIN IT ■ T ~ . - “ —r . . 

.T 


14 9 

EXT 

TREAD 

1 


-__,_-_-_15.0._... 

..:_ EXT 

.T REWIND.......—...._... 

< ‘ 1 


-4 


O 

o 

o 

o 

a 

o 

o 

o 

o 

o 

o 

o 


o 


o 









































o 


tvinit. ... 

TVREAD 

T VW A I-T.-.~.-.,w.-....-.-...*.. 

TVWRITE 
TWFM 

TWRI~TE.. .. '..*-——_____ 

TXST ART 
TXTOTAL 

UOBITS.“.'.'."... .*."...- 

VMM 

V MM C M—-.-.......---- 

VMMSAVE 
X FLAG 

“ZERO' p-§— 

Z ROPAGE 

7 7738 . . " .. : “ 

77748 

0 00 0 OB------..-----.— 

32 NUMBER OF PAGES PER USER 

Q 0 Q 8 

0 003 ---- ... 

0 003 
5 50 8 

5543 “ ~ ” . 




* 


FILE CONTROL BLOCK DEFINITIONS 


J;. 

♦ 


0 ACCOUNTING WORD (MUST BE 0) 

-Jr --.---- t0 . A , D _p e . INT _ BLCeK _„.- . . 

2 CORE POINTER IF NGN-ZERO 

IF 8IT23 = 1, CORE BLOCK HAS 

. . ^.BEEN WRITTEN.INTO. ... 

CORE P + 1 BLOCK NUMBER OF THE CURRENT BLOC* 

4---CURRENT.POSITI ON.POINTER.* 

(R£L. POSIT. WITHIN BLOCK C8P) * 
BIT23 SEZ READ-ONLY * 

———^ AT LOAD POINT-'.. """*" 

BIT21 SEZ END OF DATA * 

BIT20 SEZ FILE MARK JUST READ 


3IT18 SEZ BINARY RECORD PROCESSE* 

_—_—— -_aiT 17 SEZ A a N OR M A L /UN A V A IL A 3 L E * 

BIT16 SEZ ADDRESS ERROR * 

8IT15 SEZ SAVED FILE * 

• 5 — -....-. NUM 3 ER OF BLOCKS BEy*ONB— 

THE CURRENT BLOCK * 

6 END POSITION POINTER * 

-- BIT22 . SEZ . THE .pj LE HAS.CHANGED..* 

BIT21 SEZ POSITIONER READY * 

_-__ 3X1.2 0. SEZ.DESTRUCTIVE.READ. .. * 

FILE DIRECTORY * 

BITS 15-18 CONTAIN THE HT * 

. ■ ■ .... . BITS 00—14.CONTAIN.END POSITION.* 

7 TOTAL LENGTh IN BLOCKS * 
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UIO 


0 0 0 C 0 
0 0 0 00 


CPPX” 

PSA 


CD 

.:.-.3 0 0 22.- 

0 00 36 

0 0 0 04 

-.-.-.20 3 . 

204 

20 5 

.CLOCK.-. 

LEVEL 

HTMINREC 

.EQU-. 

EQU 

EQU 

.223.-. 

363 

4 

MINIMUM RECORD 

,1 

LENGTH '■! 

CD .___ 

0 0100 

0 0060 

00122 

.20 6. 

207 

208 

MT'P F ARE A 
HSFPF 

TVP FARE A 

EQU 

EQU 

EQU 

100 3 

0603 

1223 

PAGE FILE AREA 
PAGE FILE AREA 
PAGE FILE AREA 

FOR MT......*.*... ... 

FOR MSF 

FOR TV I/O 


.0 0140. 

20 9. 

PS 

EQU 

1408 

PAGEFILEAREA 

FOR VIRTUAL MEM OR Y . ... 7 


0 0 0 01 

210 

PFLOC 

ECU 

0 013 



S*tSa>> 

-...040-00.-. 

-.—....211.-. 

.CORE.-..- 

-EQU.— 

-..-PFLOC*2*11. -- 

..„............. 

................................. 


0 00 01 
0 0 0 02 ” 
0 0 0 0 3 

00004 . 

0 0 0 05 
0 0 0 06 
0 00 07 
0 0 010 
0 00 11 
0 0 0 12 
0 0 0 13 

. 0 0014 

0 0 015 
0 0 0 16 
-0 0 017 


212 
213 
20 3.- 

204 

205 

206 . 

20 7 
20 8 - 

209 

210 
211 
212 

213 

214 

215 

.2-16. 

217 

218 

219 ~ 

220 
221 


HTDEF 

.* 

HTFILE EQU 013 

HTLP." ECU... 0 28 

HTPUN EQU 033 

HTCR .— -EQU—-—r-0 43 - 

HTMT EQU 053 

HTTTV EQU 063 

H TP LOT EQU 0 73.. 

HTNULL EQU 108 

HTT V EQU 118 

HTRAF.EQU.123. 

HTT ASK EQU 133 

-H-TMS-F- —. EQU -1 43---- 

H TP TP EQU 158 

HTMAX EQU 163 

. * 

. Af* VAf.****^*** AA ¥ Af ¥ Af A 


-AHMMf -AHHHF- 


AA 


FILE 

LINE.PRINTER” ... 

CARD PUNCH 

CARD- READER ...--- 

MAGNETIC TAFE 
TELETYPE 

X/Y PLOTTER — 

ONLINE INCINERATOR 

CRT DISPLAY 

RANDOM ACCESSFILE 

FUTURE INPUT FOR REMOTE BATCH 

USER DISKPACK- -—— 

PAPER TAPE PUNCH 

(NUMBR OF HARDWARE TYPES) + 1 

MASKFORTHEHARDWARETYPE 


Af-SAAAMAAMAAAiHMA-*AAA^¥-AMA.iAAAAAAMMA 


o 






















































UIO 


IDLE PROGRAM 




BEGINNING OF PURE REGION 01 

THISISTHE IDLE PROGRAM. 

DO WE WANT THE NOISE MAKER 


O'. 


TRANSFER INDEX 1 _ 

.TO.index .2...............:..,.; g GD 

LOOP BACK TO M AKE NOISE - - -.- - - - - -.. ------& 

(J 

NOT < FMR+8RP ) ...........~ .... «—y A • 

FMR+EODB L'bG 

lp+ecdb. .. '. . ... : .:■ 

FP+SV BITS 

NOT.C4F-+&OD=fPMR+BRP+A/U).-..—..-.-.._ 

(J 

.:._..,._.___...........;*o 

......”.~fb 

■... — ....■.'.~.“.o 

...................._____............O 

'"r ” T— ~ — " “..." ".7 ' o 

____ • _________....o 

: " r— ~ .“ ..” ;...~ * t o 

7~ —— o 

.._:_ '•; . ■ •~ ■ ■.o 

r .^ ~ " r ^ _ " ;.;. — ^ —- . o 

™...o 

.........._............... O 


O 



































A SSEMSLER/0S3 V1.0 0 9/ 21 /74 2229 PAGE 


FILE INPUT 




■ ¥¥•¥*¥■» ** * # ¥ r* *"* *''*¥'*¥ '** ¥* #* 4HMf * *'* 


FILEINPUT 


0002 0 
0 0021 
00022 
00023 
00024 
00025 
00026 
00027 
00030 
0 00 31 
00032 
0 0033 
00034 
00035 
00036 
000 37 
00040 
-00-041" 
000 42 
0 0043 

.00044 

0 0 0 4 5 
■00046 
00047 
0 0050 
0 0051 
00052 
00053 

.GO 0 54" 

00055 
. 0 065 6 . 

00057 

00060 

00061 

00062 

. 0 0 063 

0 0064 
0 0065 
0 0 066 
00067 
00370 
00071 
. 0007 2 

00073 

00074. 

00075 
0 0076 
00077 
00100 
0 0101 


00020 P 
21100004 
27077777 X 
03104766 P 
27077777 X 

.03105063.P. 

27077777 X 

37 00 00 11.R- 

40100004 
00705064 P 

*2010 0002 .— 

03100035 P 
00 777777 X 

01 00 0036.P. 

00 77 7777 X 

-20 100004. 

5360 0000 
15200003 

20 20 3777.* 

03300215 P 
03 00 0234 P 
37005135 P 
40377777 X 
20077777X 
37203777 
34100004 
11177777 
37377777 X 
40300052 X 

T36WT76.p 

2130 0 0 45 X 
.0-37666 60.P- 

13 00 0030 
47205150 P 
14200063 P 
01003212 P 
'61004771 “P 
542Q5150 P 
.■2-0 37 7-77-7—X- 
77634000 
53 43 Q 0 36 
01000071 P 
14600073 P 
4 0 3 7 777 7.X. 

20377777 X 

-53 506666 -. 

20 30 0055 X 
03000210 P 

13606630 . 

20300053 X 
03000167 P 


USERS A REGISTER 

CUR RE'NT—ADD R'E’3S“RE' ©l-STER- 

RECORO WORD CCUNT 
USERS Q REGISTER 


♦ V ** >/■ W* V •¥■ Af- Af Af ■* AA * AA AA Af-¥•: 


AAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAA 


FINPW EQU 
LDQ 

——t— 

AZJ,NE 
LDL 

.AZJ,NE 

LDL 

-LPA- 

STA 

RTJ 

---- tETA- -- 

AZJ,NE 

RTJ 

UJp 

RTJ 

--LDA- 

T AI 
INI 

——-tO-A- 

AZ J,LT 
AZJ,EQ 

CRFINPW.LPA. 

STA 

..LDA .-. 

LPA 

RAO 

LPA 

STA 

.AZJ, EQ 

LDQ 

--—AQJ-, L-T- 

AA 

SHAQ 

ENI 

UJP 

“ UJP 

LOI 

^P-Il.RW-01-—LDA. 

ACR 

TIM 

—————ujp—— 

ENA 

STA 


37777 3 


LOA 

T AI- 

LDA 

AZJ,EQ 
'*S H A'Q— 
LDA 


CPP,Xl+CNBLK 
AU3~ 

I OSMASH 
E0D3 

Z R’DE O D. 

NLP 3 

NFM3RP-- 

CPP,Xl+CNBLK 
SAVE 

COREP,Xl+CNBLK 

* +3 
FIX 

‘ * + 2 
RESERVE 

CPP,Xl+CNBLK. 

X2+CPPX 
3,X2 + CPPX 
CORE-1,X2+CPPX 
FINPW09 
FINEOD 

8IT16M1 .. 

F6,X3+PSA 

BRP3- 

C ORE-1,X2 + CPPX 
CPP,X1+CN8LK 
1777778 — 

T 6 ,X3+PSA 
T 6, X3+PSA 
FINPW 06 
F 6,X 3+PSA 
*+2 .. 

24 

■tetPW’ewr 

* +2,X2 

IRCHECK 8 

IRERRORA '.~ 

IEMP2,X2+CPPX 
CR , X3+PSA.-.- 

LEVEL,0 

* ——————• 

* +2 

. F 4,X 3 + P SA. 

SELECT, X3+PSA 

Xl+CNBLK. 

F 6 ,X 3 + PSA 
FINPW08 
**2-4— ' ■ * 

T 6 ,X 3 + PSA 
FINPW06X 


GET THE STATUS WORD 

CHECK FOR A 6 NGRMAL/UNAVAILABLE 

SMASH THE FINK 

CHECK FOR END OF DATA 

JUMPIFEND OFDATA 

CLEAR LOADPOINT, FILE MARK, 

AND 8 I N AR ¥.REC O RO.PROCESSED 

BITS AND STORE IT BACK 

SAVE INDEX REGISTERS AND FAULTS 

.C 0 RE - 8 LCCK PCI6'6EP~6‘0 — A'~~^ 

JUMP IF IN CORE 

AND READ THE FILE BLOCK INTO IT 

ITS.ALREADY.RESERVED .... 

RESERVE THE CORE BLOCK 

LOAD.THE.STATUS.WORD ------ 

ADJUST FOR THE POINTERS 

L 0 AD THE I NTE R REG OR D GAF W 0 R 0 

JUMP IF A FILE MARK 
JUMP IF THE ECO WORD 

.LEAVE.THE.RECORD.LENGTH.. 

AND STORE IT INTO F 6 

-LO AD THE- i lN A R Y -R ECORD.B IT-- 

AND IT WITH THE RECORD GAP 
OR IT INTO THE STATUS WORD 

HASK FOR SIXTEEN BITS*"**~*.... 

MASK THE USERS G REGISTER 

AND STORE IT BACK 

JUMP IF THE WORD CO UN T WAS Z ERG 

LOAD THE RECORD LENGTH 

JU HP .IF THE WGRO COUNT IS LESS 

THAN THE RECORD LENGTH 
PUT THE SMALLER INTO A 

SAVE THE.CURRENT POSITION .—.. 

ENTER THE RETURN ADDRESS 
CHECK FOR ILLEGAL WRITE 

RE.GOT.ONE""... : .".". .... 

RESTORE THE CURRENT POSITION 
INTER .PROGRAM.STATE-.—.-.— 


SET UP F4 FOR THE RETURNS 


RESTORE THE CN 6 LK INDEX 


LOAO THE RECORD WORD COUNT 
JUMP IF THE RECORD IS FINISHED 

LOAD THE USERS G REGISTER 
HAVE WE MOVED ENOUGH WOROS 


. . 0 010 2 . 

0 010 3 

.:.Q01Q4. 

03600104. 

13000030 
53 20 0000 

.P. 

...30 6 . 

307 

. .30 8 . 

...AQJ,GE.. 

SHAQ 

._.:.TI A. 

... *+2 .... .. . 

24 

X2+GPPX 

CHECKTHENUMBER OFWORDS LEFT IN 

7 

0 010 5 
00106 

15476777 

03200162 

P 

309 

310 

IN A , S 

AZJ,GE 

-WPF8-2 

FINPW05 

THE FILE BLOCK 

GET A NEW FILE CORE 8 LOCK 


0 016 r 

0 0110 

0 0111 

1647 /((( 
03600112 
13 00 0030 

P 

.* 0*11 

312 

313 

r 1 N P n U C. L X u A ) 5 

AQ J, GE 
SHAQ 

7 77 f7 b 

*+z 

24 

. Ir.rvt trObD. ^ . 

f*. 

• / 

. 00112 

0 0113 

____00114.. 

24377777 
17603777 
.0 5 60 0 0 01. 

.X... 

..... 314 . 

315 

..316 

.'.LCA. 

ANA 

____ asg___ 

.F5,X 3+PSA. 

37778 

. 1 _____:._:. 

CHECK THE NUM 8 ER OF WORDS LEFT 

IN THE PAGE 

_...SKIP.IF.N CT.W CRD.777778. 


00115 
00116 
n n A A 7 

14600001 

03700120 

a v- - n n r, n 6 ? n 

p 

317 

oi e 

7 i n 

ENA 

AQJ,LT 

1 

* +2 

, o /. 

MOVE 1 WORD 


U U 11 / 
00120 

loUUuuou 

13077776 


o i y 

320 

.oHAu . 

SHAQ 

-i 

COMPUTE NUMBER OF PAIRS CF WORDS 



o 
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7 


UIO 


(i) 

CD 

O 

O 

o 

o 

o 

o 

o 

o 


00121 . 53 50 0 00 0 . 

00122 02500141 P 

00123.1447777G 

00124 34300075 X 

0012534300100 X 
00126 20204000 

00127 55400000 

0013040700112 X 
0 0131 55 00 0 0 0 0 

00132- 20300130 X 
00133 15600001 

00134 44300132 X 

00135 0560 0001: 

00136 00000156 

00137 15200001 

0014001700072X 

..-..0-0-141.P 

00141 12000001 

00142 16477777 

00143 34300124 X 

00144 34300125 X 

00145 P 

.00145.25 20 40 0 0" . 

00146 55400000 

. 001 4-7 .45-70-0-134 .X 

00150 55000000 

00151 14600002 

■*0' 0 15“2“~3'430"0147“' X 
00153 15200002 

00154 02500145 P 

0 0155. 01700X40 .X 

00156.-. 7Z6-7-0.OVO—, 

00157 16600001 

00160 77660000 

-0 0161 0100 4537 P 

00162 00000163 

00163.0070 4644.P 


.321. 

322 

- .323 

32 4 
325 
32 6 

327 

328 

32 9 
330 

- .334. 

332 

333 
.334. 

335 

336 

337 . 

33 8 

- .339. 

340 

341 

342 

343 

344 
.345“ 

346 
.347 

348 

349 
•35 0 • 

351 

352 
".353 

354 


359 
36 0 
361 


TAI 
IJD 

EN A j S 
RAD 
RAD 
LD A 
VFD 
ST A, I 
VFD 

-:--IDA-— 

IN A 
SWA 

VFD 
INI 
UJPVI 

FINPW03.EQU. 

SHA 
XO A j S 

RA0 .. 

RAD 

FINPW03L EQU 

....LDAQ 

VFD 

-STAG,I 

VFD 

ENA 

————RAD— 

INI 

IJD 

rop7r 

FINPW04-aSA- 

XO A 

AOS AOS 

—.. UJP. 

FXNPW05 VFD 

.'. ..- 



0 0164 
.0 0165 

00700033 
.14 20.-0-0 0 2. 

X 


362 

...363. 


RTJ 

.EMI.-. 

O . 

00166 

01000065 

P 


364 

365 


UJP 

O .;. 

0 01b/ 
00170 
00171 

OuUutjjLfU 

31300143 

40300144 

X 

X 


0 D O 

367 

368 

H 1N r W 0 b X 
FINPWQ6 

VFD 

S8A 

ST A 


.'.00172. 

0 017 3 

00174 

.53 20 Q V0 0“’ 

15477776 
1? 60 0 777 



.36 9. 

370 
. . 371 


VTA. 

IN A, S 

ANA. ... 

O .” 

00175 

00176 

n n i *7 "7, 

30300170 
05 40 Q 776 

X 


372 

373 


ADA 

ASG,S 

a.. 

uui / / 

00200 

uluuu£.0£ 

15477001 

1 


3 < 4 

375 

376 

FINPW07 

D Jr 

IN A , S 


0 0201 

..o 02 0 2. 

05400776 

01000226 

p. 


.377. 

37 8 

.37. c ..... 

..¥■...... 

ASG, S 

..UJP .. 

O'. 

00203 

0 0 2 0 4 

, , n n o n c, , 

40300175 

00704644 

i'i n ~7 n n -i c* /. 

X 

p 

V 


380 

381 


STA 

RTJ 

10 

o t . 

U U C U O 

0 0206 
00207 

y u<u y 
20300203 
01 00 0 200 

A 

X 

_p_ 


383 

384 


K t J 

LDA 

UJP 


00210 

.0 0211. 

53200000 
.Q 5.6.0 .0 777 



.385 ^ 

386 
.. 387 

FINPW08 

TIA 

ASG.. 

o 8 .■. 

0 0 212 
00213 
n n o i u 

00 00 0 231 
15477000 

n n n i'i n o o cl 



388 

389 


VFD 

IN A , S 

o, .. 

U U c l 4- 

00215 

u uuuuctb 

20077777 

X.. 


O O IJ 

391 

392 

FINPW09 

vr d 

LDA 

O 5 . 

...00216. 

0 0217 

.0.0220.: 

00221 

00222 

. 00223 

00224 

.15 60 0 0 01 

34100004 
11177777 
37300171 
4030 0 221 
-05201000 
01000564 

X. 

X 

p 

3777.7.3.. 

.393 . 

394 

.3.9 5.:. 

396 

39 7 

39 8 .- 

39 9 

FINPW9X 

IN A 

RAD 

.ECHA . 

LP A 

STA 

•TSG— 

UJP 


Q 


O 


FILE INPUT 


X1 .“...'...THAT CAN 8E MGVED 

FINPWQ3,XI JUMP IF WE CAN MOVE ANY PAIRS 


-1 < 

F 6» X 3+PSA DECREMENT COUNTER WORDS 

T 6, X 3+PSA.....—...... .. ' ...... 

GORE,X2+CPPX MOVE ONE WORD INTO THE USER*S 

A9/R0S •• ■ MEMORY 

F5,X3+PSA 
A9/RIS 

F5,X3+PSA---LOAD.THE ADDRESS REGISTER- 

1 

F5,X3+PSA 

1“----—-- SK xr.IF NC.SANK CHANGE—— 

A9/JMP.A15/FINFW04 CHANGE BANKS 
1 X2+CPPX 

F4,X 3+PSA.“. RETURN TO THE PROPER ROUTINE 


1 

7 7 7 7 7 B 

F 6,X 3 +PSA DECREME NT COU NTER WORDS 

T6,X 3+PSA 
* 

CORE,X2 + CPPX. MOVE.TWO.WORDS.INTO.THE USERPS 

A 9/RQS MEMORY 

-F 5 , X 3 +P S A -----— .- ----- ---- 

A9/RIS 

2 UPDATE THE ADDRESS REGISTER 

' F 5»X 3 +PS-A—■—— 

2.X2+CPPX UPDATE THE CORE POINTER 

FINPW03L,XI 

F4, X 3 + PS A.RE TURN TO T HE FRCPER ROUTINE 


1 

SKIP 


SWITCH.MEMORY..BANKS.. 

AND RETURN IN PROGRAM STATE 
T C.THE.f NSTRUOT10 N AFTER THE'.JM P 


A9/JMP,A15/*+l 

REWRITEY.....PURGE.THISFILE.BLOCK. 

FIX AND READ THE NEXT ONE IN 

2, X2+GPPX-.—RESET- XO THE START OF THE BLOCK. 

FINPW01 


“A'9J^-ttPrAl*5~/**lr-ENTER MONITOR STATE" ” .. 

F 6,X3+PSA GET THE NEGATIVE OF THE NUMBER 

T 6, X3+PSA OF WORDS LEFT AND STORE INTO Q 

“xz'-fcffjc.....~...-...~.. 

-1 " ADJUST SLIGHTLY 

.WP.F3+-1..- __MASK—OF-F THE GARBAGE-- 

F6, X3+PSA ADD IN THE NUMBER OF WORDS LEFT 

WPF3 SKIF IF NOT IN THIS BLOCK 

■ffNWK-;--- 

-WPF8 COUNT IT DOWN BY THE NUMBER OF 

,,,, WORDS PER. FILE .BLOCK.... 

WPFB SKIP IF PAST THE NEXT FILE BLOCK 

. FINPW1-Q .._. GO CLEAN UP— -:---- 

F 6, X3+PSA SAVE THE REMAINING LENGTH 

REWRITEY GO DC THE SOCK KEEPING 

-pf*™----RE-AB—TH-E-et-Oe-K.*TN~' -:-—-- 

F6, X 3 + PSA LOAD THE REMAINING LENGTH 

. FINPW07 _ AND LOOP BACK ' ___■ __1 

X2+CPPX DOES THE NEXT RECORD START IN 

WPFB + 1 — - . J HIS-BLOCK.__—... .. 

A9/JMP,A15/FINPW12 JUMP IF IT DOES 

-WPF8-1 OTHERWISE IT MUST START IN THE 

A9/JMP,A15/FIMFW10 NEXT BLOCKSO FIXTHE CPP INDEX 

F M3 _____ LOAD THE FIL E MARK R EAD B IT 

CPP,X1+CN3LK OR IT INTO THE STATUS 

1777778 -.... ____ .. —— - -. 

T6,X3+PSA MASK THE USERS C REGISTER 

T 6,X3 + PSA STORE IT BACK 

WPFB+2,X2+CPPXSKIPIFTHE NEXTRECORDIS IN 
READFX THE NEXT BLOCK 
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. O’ 0225 

00226 
.0 0227.. 

14 bO 0000 
44100004 
.n Il. 7 n ;4 fi44 

...P„. 

40 0 

401 

.4 0 2. 

FINPW10 

ENA 

SWA 

.DTJ. 

CD ‘ 

00230 

01000565 

P 

403 

40 4 


UJP 

Q 

u U c. o JL 

0 0232 
.00233 

1 5 4/ (( (b 
44100004 
.01000564 

P 

4 u b 

40 6 

40 7 

r 1 NrWlc 

FINPW13 

i N A j o 

SWA 

UJP 


0 0234 

0 0 2 3 6 

20000023 

1 4 2 0 fi 0 0 fi 

X 

. 40 8. 

409 

.41 n. 

FINEQD 

LOA 
Fi\|T. 

a 

. * Uuu'yy 'T" 

00236 

01000217 

P 

T* U. . 

411 


Lti Jt 

UJP 



o 


FILE INPUT 


U 

C PPiX1 + CN3LK 

REWRITEY. 

READRTN 

CPP,X1+CN8LK 
READ FX... 

EODB 

.0.,X2-—- 

FINPW9X 

........_____....____._._..:._._.__....._........bO 

. . . fl o 

_:_;___.___ 1,0 

...o 

. 0 

..~. ; .....o 

..._._____:________._..._ o 

...."..."..'. T . _ .......o 


o 

o 

o 

o 

o 

O 

o 
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CD _ 
Q .' 

0 . 

o . 

O _1 
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o.. 

0'~ 

o„. 

o 8 .. 

o 
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41 5 

-4-1-6. 

417 
41 fi 

419 . 

420 

421 

422 

423 

424 . 

425 

426 
"4*2 7“. 

428 

429 

43 0 . 

431 
432-. 


) UIO 

.^W¥»¥¥ 

* 

,*..... 

-¥■ 

r 

if. 

* 

. if. 


FILE OUTPUT 


.FCUTW...-.----------.. 


FILE OUTPUT ROUTINE 


T5 

F5 

76 

F6 


USERS A REGISTER 

CURRENT ADDRESS REGISTER 

USERSQREGISTER 

COUNT OF WORDS LEFT CT MOVE 


OVERCHEC 


♦ 

_jfc_ 

* 

* 

* 

.at“” .. 

A? 

Jt_ 

*¥-¥•**¥**-**#-?*■* *■¥■*** **V-****¥ **¥-¥¥**#*■#■¥**¥¥■*¥*¥*■*-**■¥*-»¥¥*-¥# »-*****¥»**-»3f-V--* 


ROUTINE TO CHECK FOR INSUFFICIENT FILE SPACE 
ENI RETURN A00RESS,X2 

UJP .OVERCHEC 

WILL PUT INTO CONTROL MODE IF AM ERROR OCCURS 


00237 
0 0 240 

00241. 

00242 

.00243 

00244 
0 0245 
00246 
00247 
00250 
00251. 


*. 0 

20 10 
12 00 

.0 3 30 

2010 
-03-30 
3700 
2110 
04 30 
0310 
0 0 70 
.1420 


0237- p 
0 0 06 
00 03 

4673.P. 

00 04 

4763.P 

0021 X 
0 0 07 
~e-037r~ 
4766 
5064 


P 
P 

G 2 66 P 


00252 
0 0253 
0 0 254 
00255 
C0256 
00257 
00260 
0 0261 


20377 
4430 
12 00 0 


0-0-252.P 

X 
X 


152 

010 


0320026: 
77 67 G 0 0 0 

ISFOTOOI. 

77660000 
1117 7 777 


3-77-7-7.3- 


434 
43 5' 
436 
4 3 7 

.436 

439 
-440. 

441 

442 
"44r3“ 

444 

445 

446 

447 
-44 8 

449 

450 

451 

452 

453 
"45F 
455 

-4-5-6- 


' FCUTW 


SET UPF5 


— ECU".. 

LDA 

SHA 

AZJ,LT 
LDA 

—AZ J» LT- 
LP A 
LDQ 

■~QSEtS“ 
AZJ,NE 
RTJ ' 

.ENI . 


EQU 
LDA 
SWA 
SHA 
AZJ, 
OS A 
T0‘A 
AOS 
. ECHA 


EPP,Xl+CNBLK 
23-20 

ZABORT. 

CPP,Xl+CNBLK 

FPV--—. 

A U3 

TFL,Xl+CNBLK 

0.—————— 

I0SHASH 

SAVE 

FOUTW Z,X2. 

*... 


GE 


T 5,X 3 + PSA 
F 5,X3+PSA 

8 .. 

* +4 


00262 

00263 

37300222 

03005000 

X 

P 

v 

457 

458 


LP A 

AZJ,EQ 

0 U 2 b 4 
00265 

4U 3u 0 2 0 b. 

0120 0000 

A 

46 z 

46 0 

46 i 


“ST A . 

UJP 

00266 
.no 26 7 

“““...0X266" 

21100004 
.1Z.Z7_XZ.Z7. 

.P. 

462 *- , 

463. - 

. ...4,6.4..._.. 

FOUTWZ. 

.EQU. 

LDQ 

..AN Q. 

0 0270 
00271 

n n 77 o 

53040000 

15500002 


465 

466 

. -j , . . 


AQA 

INA 

u U £4 £ 

00273 

00274 

loU/ ( 74/ 
51005136 
31100005 

p 

4 b l - 

468 

469 


SH A U 
OVA 

SBA 

0 0275 

14200336 

....0..0-27-6- 

.P. 

P. 

.47 0.. : . r 

471 

...472. 

.OVERCHEC 

.ENI. 

EQU 

0 0276 
00277 

3 0 10 0 0 07 
14777777 

, c. n ■2 ,o a 

r' 

472+001 

472+002 

j, 7 o l ft n 7 


ADA 

ENQ 

J U o u u 
00301 
00302 

'UooUu021 
31100007 
2110 0004 

P 

472+004 

4 73 


A u cl j oE 
SBA 

LDQ 

.0 030 3 

0 0304 
.00305.. 

12 477776 
05740000 
.15377774 


7 

475 

___476.... 


SHQ 

OSG 

INI 

0 0306 

0 0307 
00310 
00311 

0 0312 

30377777 

21377777 

13006030 

03600330 

54377777 

x. 

X 

p 

X 

477 

478 
.47 9 

479+001 

481 


ADA 

LDQ 
SHAQ 
AQJ,GE 
LO I 

0 0 313 
00314 
00315. 

20 377777 
03100317 
.14 60 0 0 06 

.X"... 

p 

48 2 

482+001 

____464_ _ 


LDA 

AZJ,NE 
ENA_ 

0 0316 

0 0317 

0 0 320 

40300313 
20 37 7777 
03300324 

0 0 321 

X 

X 

p 

p 

485 

486 

———46T^—— 

487+001 

OVERCHOI 

STA 

LOA 

AZ'd-rtT- 

EQU 


OQOOIB 

4.777-778-. 

T 6,X3 + PSA 
ZWCZERO 
F6',X3+PSA 
0 ,X2 


CPP,Xl+CNBLK 
777776_ 

2 

—24- 

KWPF8 

BLKR,Xl + CNBLK 
0 VE R C H 0 6, X 2". 


T FL,X1+CNBLK 
777778 
QVERCH01 
TFL,Xl+CNBLK 
CPP,Xl+CNBLK 

-1 . 

400008 

-3,X3+PSA.-.:.- 

SFBLKS,X3+PSA 
SF3LKLIM,X3+PSA 

2 i r ——~— 

0VERCH03 
RPSAPTR,X3+PSA 
CTTCO Q t,X3 +PSA 
*+3 

INSFIL - _-_ 

CMCODE,X3+PSA 
SYSCM,X3+PSA 
0VERCH02. 

v- 


CHECK FOR DESTRUCTIVE READ 


CHECK FCR FILE-FR CTECTION 

JUMP IF PROTECT VIOLATION.. 

CHECK FOR ASNCRMAL/UNAVAILA8LE 
LOAD THE FILE LENGTH 

SKIP IF.7ERG LENGTH .... 

KILL THE FINK 

SAVE INDEX REGISTERS AND FAULTS 
ENTER.THE.RETURN.ADURESS. 


LOAD THE USERS A REGISTER 
SAVE THE LOWER 15 BITS 

'BANK • 8IT TO THE S IGN. 

JUMP IF THE SAME 32K BANK 

.S WIT CH.M EMORY.BANK S. 


LEAVE THE WORD COUNT IN 
WC = 0 IS VERY ILLEGAL 
SAVETHEWORDCOUNT 
RETURN 


LOAD THE CURRENT POSITION POINTER 

MASK.0 F- F .THE.STATUS. B-I-T-S . 

ADD IN THE CURRENT POSITION 
COMPENSATE FOR THE I-R GAP 
-PREPARE TO DIVIDE - 
DIVIDE BY WORDS PER FILE SLOCK 
SUBTRACT BLOCKS TO BE FREED 
ENTER T H E R ET LR N A D DR ESS.*. . 


COMPUTE ACTUAL 
MAXIMUM LENGTH 

JUMP IF.OVER TH 

RETURN A TO AS 
LOAD THE STATUS 

SAVE.FILE. BIT1 

SKIP IF A SAVED 

ADD.IN.(TFBLKS- 

ADD IN THE IOTA 
LOAD THE ALLOWA 
FILE BLOCKS — 
JUMP IF ENOUGH 
RESTORE THE PSA 


LENGTH OF FILE 
OF FILE 

f-tft*wrse£- 

BEFORE 
W CRD 

C BIT.14.. “ 

FILE 

SFBLKS) 

L FILE SPACE 
BLE NUMBER OF 

ROOM 

INDEX 


JUMP IF A REQUEST EXISTS 

OTHERWISE,.PUT THIS.CODE.INTO 

CMCODE FOR FUTURE REFFERENCE 
IS THE USER IN CONTROL MODE 
CO NT R 0 L MODE C ANT HAVE ERRORS 


O 






























































o 


FILE OUTPUT 


RZ : RETURN FROM STATE.ZERO 

INSFIL 

Q CONTROL--- --— - -. 


CPP, X 1 + CNBLK..LOAD STATUS BITS ' . 

-1 SAVED FILE BIT TO BIT 14 

400003 SKIP IF FILE IS SAVED 

- 3,X 3 + PSA ADD IN (TF8LKS-SF8LKS) 

* 

SF3LKS,X3+PSA-STORE THE NEW TOTAL VALUE . 

SF3LKMAX,X3+PSA LOAD THE MAXIMUM FILE SPACE USED 

*+2 JUMP IF NOT A NEW MAXIMUM 

the- new maximum value 

RPSAPTR,X3+PSA RESTORE THE PSA INDEX 

0 , X2 RETURN TO THE CALLER 


-BIT-2 2-- 

EPP,Xl+CNBLK 
EPP,Xl+CNBLK 

_ t , 6tX «3 +p . s , A ,__ 

BRP3 

F 6,X 3+PSA 

T6,X3+PSA. 

GPP, Xl+CNBLK 

WRMASK-- 

EODB 

CPP,Xl+CNBLK 
CORE PyXl + CNBLK 
F0UTWK2 
LP8 

‘FOUTWK1 . 


GETCORE 


777778 


CORE+1 

TFL,Xl+CNBLK 

-r——— 


F0UTWK4 
LP« Xl+CNBLK 
FREEFILE 
SEL8LK 
L-P» X-l + CN6LK- 
CBP,Xl+CNBLK 
F OUT WK3 , X2 
~F'0 : Z*AT > “~“-- 


S ET.-THE.C HA N GE— BIT-- 

AND THE WRITE STATUS BIT 
AND STORE THEM AWAY 
LOAD THEUSERS“G"REGIS TER™ 

LEAVE THE 8INARY BIT 
OR IN THE WORD COUNT 

AND.STORE.IT BACK. 

LOAD THE STATUS WORD 

CLEAR.A BUNCH:.OF.BITS.----- 

SET THE END OF DATA BIT 
STORE THE STATUS BACK 

*tO AO'~T HE. COREP ClrNTER—— 

JUMP IF THE FILE BLOCK IS IN CORE 
LOAD POINT BIT TO A 

JUMP IF.NOT AT LOAD POINT.'.. 

GET A BLOCK OF CORE 

SETTHE BACKWARD POINTER 
LOAD THE LENGTH OF THE FILE 
N0 CHANGE NEEDEC IF 0NLY~1~6LCCK~ 
JUMP IF 1 BLOCK LONG 

LQAD.THE.STARTING.BLOCK.NUMBER. 

RELEASE THE SPACE 
GET A FILE BLOCK 

STORE THE BLOCK NUMBER.INTO THE 

LP AND C8P WORDS 
ENTER THE RETURN ADDRESS 
-TAKE.CARE.OF THE FILE DIRECTORY 


* 

FIX ... READ IN.THE.FILE.BLOCK 


* +2 

-RESERVE--- 

CORE 

JIK R>Xl+CNBLK 

FREEFILE 
8 LKR,Xl+CNBLK 
TFL,XT+CN3LK 
0 

6 LKR > X1 + CN3LK. 

BIT23 

COREP,Xl+CNBLK 

CPPrXl+CNBLK. 

X2+CPPX 
3 , X2 + CPPX 

T 6, X 3 +PS A . _ . — 

CORE-1,X2+CPPX 

L EVE L , 0.-.-.- 

C R,X 3+PSA 


RESERVE.THE.CORE BLOCK-.- 

LOAD THE FORWARD POINTER 
GET THE NUMBER OF BLOCKS THAT 


ARE.BEYOND THE.CURRENT BLOCK-. 

RELEASE THE FILE SPACE 

LOAD -(NUMBER OF BLOCKS FREED) 


UPDATETHEFILELENGTH 


8 LKR IS ZERO NOW 

.SO.SET— IT.APPROPRIATELY ------ 

INDICATE THAT IT HAS BEEN WRITTEN 
INTO 


LOAD THECURRENT POSITION 
PUT IT INTO THE INDEX 
ADJUST THE RELATIVE POSITION 
LOAD WORD.COUNT.AND BINARY.BIT 


WRITE WORD COUNT INTO THE IR GAP 

GET THE.MCNITCR.INTO.PROGRAM. 

STATE THE FAST WAY 


*+l .- .ENTER.PROGRAM STATE 

3IT18 BINARY BIT TO A 

FOUTW04 JUMP IF BINARY RECORO 

FORM FLAG ... CHECK.FOR.FORMS.REQUEST . 

A 9/ROS 

.F 5, X 3+PSA - - .LO AD THE FIRST WO RD OF T HE REC ORD 

A 9/RTS 

F0UTWX2 JUMP IF IT IS FORMS 

EPP , X1+ CN 8LK GET T HE H ARDW ARE TYPE 

-15 
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00430 

0 0 A 31 
..0 043 2. 

17 60 0 017 
0461)0013 
.01000450. 

.P...'. 

560 

561 

.562.- 


ANA 

ASE 

.ujp. 

00433 

0 0434 

20 00 0404 
12 477763 

X 

566 

567 


LD A 

SHQ 

0 0 4nJ 5 

0 0436 

0 0 437 

0 47 01717 
01000444 
02600552 

P 

P 

56 8 

56 « 
570 


J S L 

UJP 

IJD 

.n n kUii . 

0 0 440 
.pn i n o n of) 

P 

5 71 
572 

. 5.73 . 

F0UTWX2 

EUU 

.in A. 

00441 

00442 

35077777 

40100006 

X 

574 

5 75 


SS A 

ST A 

0 0 443 

0100 0 450 

a 0 444 

p 

58 2 

583 

584 

FOUTW02 

UJP 

EQU 

.00444. 

00445 
.0 0 446. 

12477771 
04 70 00 17 
.n i no 0450- 

... p.. 

.585. 

586 

.58 7.. 


SHQ 

QSE 

.flip. 

0 0 447 

0 0 45 U 

34203777 
1460 0452 

P 

588 

589 

F0UTWQ4 

RAO 

ENA 

0 0 451 
00452 
00453 

• 40 30 015 5 
20300073 
53500000 

X 

.‘59 0 

591 

592 


STA 

LD A 

TAI 

0 0 45 4 

0 0 455 
. 0 045 6 

.53200000. 

15476777 
.03 00 0-527- 

,.,..p.... 

.593.. 

594 

..5.9.5. 


' TIA. 

IN A , S 

.... A / J , FQ 

0 0457 

0 0 460 

16477777 

13077747 


596 

597 


XO A, S 
SHAQ 

0 0 461 
00462 

0 0463 

20 o 0 0o4o 
03000551 
03600465 

**X“~~.... .... 

p 

p 

.*“59 8 . 

599 

600 

FOUT W05 

LD A 

AZJ,EQ 
AQJ,GE 

.00464. 

0 0465 
...00466. 

''13 00 0 0 30. 

2430 0 423 
-.17.. 60-3 7-7-7- 

X 

.601. 

602 

.. ...6 0-3. 


.SHAD. 

LCA 

..ANA. 

00467 

0 0 470 

05600001 

14600001 


604 

60 5 


ASG 

ENA 

UU471 

00472 

0 0 473 

0 3 7 0 0 47o 
1300 0030 
13077776 

p. . 

606 ... 

607 

608 


Au -J,L T 

SHAQ 

SHAQ 

.0IT474. 

0 0475 

"53500020. 

02500513 

p 

.BITS". 

610 

.g ±±. .. 


.TAI 

IJD 

00476 

0 047 7 

•I n r n a 

.1^477776’ 

34300461 

X 

612 

613 


.ENA,S. 

RAO 

0 05 0 0 

0 0501 
00502 

55 40 000 8 
207U0465 
55000000 

X 

614 

615 

616 


VFD 

LO A , I 
VFD 

- .0 050 3. 

00504 
___00505._ 

"~W2'ff’4~oinr 

20300501 

. ISD-OO-O-O-l- 

X 

.BIT 

618 

.619. 


STA 

LD A 

_ IN-A_ 

00506 

00507 

44300504 
05 60 0 0 01 

X 

620 

621 


SWA 

ASG 

U 05 1 U 
00511 
. 0 0512. 

.U U U UU 1 b b 

1520 0 0 01 
.01700451. 

X._._.. 

.. 6 ere .. 

62 3 
624 


INI 

UJP,I 

.. 005-1-3. 

0 0513 
. 12000001 

P 

".625.~ 

626 

.62 7 - 

FOUTW06 

EQU 

. SHA.. 

0 0514 

0 0515 

16477777 
34 30 0 477 

X 

628 

629 

, f— , /-I i Z r>\ 1 i fl 

XOA , S 
RAD 

MUM*. U r 

0 05Tb 

0 0517 
00520 

55 40 0 00 0 
257G0506 
55 OGO 000 

X 

6 6 0 

631 

632 

F UU 1 n0 8 

VFD 

LDAQ,I 

VFD 

. 0 0 521 

0 0522 
__0 052-3. 

45 20 4 00 0 " 
14600002 
.34500517 

. X..:.....:. 

633 

63 4 

..65 5 _ 


STAQ.. 

ENA 

RAD . 

00524 

00525 

15200002 

02500516 

p 

V 

636 

637 

__ 


INI 

IJD 

u 0 b ic b 

0 0 527 

U± ( uu old 

00 00 0530 

. 

..coo'. 

639 

640 

FCUTW10 

.uJr ) i 

VFD 

JQ530 

0 0 531 

.. 0.0.53.2. 

' 14 60 C O 01' 
34100007 
.00 70 0 365 

X-...... , ■_ 

641 

642 

..643. 


Ena _ 

RAD 

RT..J __ 

00533 
0.0-53 4 

40 00 40 00 
21100003 

It A "2 i'l n C o. ll .. 

V 

644 

645 


STA 

LDQ 

U U 0 0b 

00536 

H rO U U P ub 

00777777 

A *"* 

X 

. b'4 b 

647 


O T 0( 

RTJ 


FILE OUTPUT 


"HTMAS'K.... .'.JUST THE HARDWARE.TYPE. 

HTTASK SKIF IF A TASK 

F OUT W04.-.-.-.JUMP.IF.NOT.A.TASK.- -. 

3IT23 LOAD THE CONTROL MODE BIT 

-12 LOCK AT THE FIRST TWO CHARACTERS 

017170 . •’ .*.*.—SICTP—I'F A FILE "HARK.——~— 

FOUTW02 

F0 UT W 1 4,X2+ C PPX..GO WRITE THE .EO.C.WORD. 

*• 

-.EPP,Xl+CNBLK.-..GET.THE HARDWARE.TYPE---.-----. 

8 IT19 SET FORMS IN FILE BIT 

EPP,Xl+CNBLK SAVE NEW WORD 

“FOUTW04———— 

- 6 

000178 SKIP IF A CONTROL CARD 

—FOUT-W 04------JUMP IF NOT-......; — 

CORE-1,X2+CPPX SET THE CONTROL CARO BIT 

*+2 SET UP F4 FOR THE RETURNS 

~F 4, X 3 + PS 

SELECT,X3+PSA RESTORE THE CNELK INDEX 

Xl+CNBLK 

.XEf+O'FPX...IS.THERE.ROOM.IN.THE "FILECORE" 

-WPFB-2 BLOCK 

.F OUT W10---JUMP.IF.NOT---.... 

-0 GET COUNT OF WORDS LEFT 

-24 

F6,X3+PSA HAS THE WHOLERECORDBEENMOVED 

F0UTW12 JUMP IF IT HAS 

. * +2 . 

F5,X3+PSA HOW MANY WORDS ARE LEFT CN THIS 

■.3 7773 ---PAGE-------. 

1 SKIP IF NOT THE LAST WORD 


1 

* +2 
24 

-1 


XT.. . NUMB E R.OF.PAIRS.TO.INDEX.1. 

FGUTW06,X1 JUMP IF WE CAN MOVE ANY PAIRS 

-1.FIX THE WORD.COUNT. 

F 6,X 3 + PSA 

A 9/ROS — ———————^ __ 

F 5,X3 + PSA MOVE ONE WORD FROM THE USERXS 

A9/RIS MEMORY 

.G0RE,X2 + CPPX ..-. ■ .7. — .". — ..“ 

F5,X3 + PSA INCREMENT THE CURRENT ADDRESS 

-1--—--REGISTER----...-. 

F 5,X3+PSA 

1 SKIP IF NC SANK CHANGE 

A 9 / J M P, A15 / FIN P W Q 4 S WIT C H M EMORY 0 A N K S.......* 

1,X2+CPPX 

F 4,X3+PS A RETURN TO THE PROPER ROUTINE 


* 

-4,---—---—-SET - THE.WORD.COUN T.TO.WHAT.IT- 

777778 WILL BE AFTER THE WORDS ARE 

F 6,X 3 + PSA MOVED 

A 9/ROS —————— -— —~ 

F5,X3+PSA MOVE TWO WORDS FROM THE USERXS 

A9/RIS MEMORY 

.C ORE, X2 + CPPX ' 

2 UPDATE THE CURRENT ADDRESS 

F5,X.S.+-RSA-.- .-...- REGISTER..... 

2,X2+CPPX UPDATE THE CORE POINTER 

F OUT W 0 8,XI 
F 4 , X3 + PSA ——. 

A9/JMP,A15/*+l ENTER MONITOR STATE 

. 1 ...*.:.:. : ...“.......:. 

TFL,Xl+CNBLK UPDATE THE LENGTH OF THE FILE 

S EL8LK.: GET A FILE BLOCK - ——- -_ 

CORE WRITE FORWARD POINTER 

GBP,Xl+CNBLK LOAD THE CURRENT BLOCK NUMBER 

IT ify A TEMPCRARY 

REWRITEX REWRITE THE BLOCK 
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00537 
0 0 540 

00541. 

00542 
00543 
0 0544 
0 0545 
00546 
00547 
0 0 550 

0 0 551 
0 0552 
00553 
00554 
00555 
0 055 6 
0 0557 
0 056 0 
00561 
00562 
"0-0-56-3- 
00564 
0 056 5 
00566 
00567 
0 0 570 
0 0 571 
00572 
00573 
00574 
0 0 575 
00576 
00577 
00 60 0 
00601 
0 060 2 
0060 3 
00604 
00605 
0 OTO 6 
0060 7 


0 0610 
00611 
0 0612 
00613 
-00614" 
0 0615 
0 0 616 
0 0617 
00620 
00621 
00622 
00623 
00624 
0 0 625 


"0 0 70 0 355.X 

20300535 X 

40 004001. 

20000433 X 
40 10 00 02 

•14200002. 

5 3 43 0 0 36 
20300414 X 
77634000 
01000450 P 

20 30 0411.X 

40204000 

1060 0777 .. 

00 00 0556 
00000610 

1460 0 0 00 . 

40204002 

53200000. 

44100004 
14477777 
4000 4000- 
00777777 X 
.00 70 5072 P 
20300551X 
40377777 X 
2 010 0 0 04.. 

21 10 0 0 06 
13 00 0 011 

17577757. 

1760 0057 
0560 0 040 

01000600 .P 

16 70 0 0 20 

- 1 - 7 - 64 - 0 - 34 - 7 -. 

12000011 
13000047 
40 3 77 777 X 
00705107 P 
20377777 X 

.44 37 7777 X 

01004537 P 


14600001 

34100007 

0 0 70 0 532.X. 

21100003 
-443-0-0-54-0-—X- 
40 004000 
00700536 X 
00700537 X 
20300614 X 
1470Q000 
45004001 
20000542 X 

40 10 0002. 

01000561 P 


64 8 

649 

650 --— 

651 

652 

-65-3——* 

654 

655 

65 6. 

657 

.65 8-- 

659 

660 
661 ' 
662 

.663. 

66 4 
665 

. 666 - 

667 

668 

669 

670 

...67.1. 

672 

673 

674 - 

675 

676 

676+001 
676+002 
676+003 
676 + 0 0 4" 
676+005 
.677- 

67 8 

679 

680 
681 
682 

683. 

68 4 

68 5. 

686 

687 

* 666 ——“ 

688 
690 

691 

692 

-693-- 

694 

695 

69-6——“ 


F0UTW12 
FGU TW14 


F0UTW16 

F0UTW18 

REAOFX 

READRTN 

FINISH 

STATUS. 

ASTATUS 


astatusa 


FOUTW20 


LD A 

STA 

ISD— 

VFD 

VFD 

"ERA. 

STA 

TIA . 

SWA 
ENA, S 
"ST'A— 
RTJ 
RT J 
LG A 
STA 

LOA- 

LDQ 

SHAQ 

-ANQTS' 

ANA 

ASG 

UJp. 

XOQ 

ANA- 

SHA 

SHAQ 

"STA— 

RTJ 

LOA 

SWA 

UJP 


ENA 

RAD 

. RTJ . 

LOQ 
STa 
STA 
RTJ • 

LOA 

ENQ 

ST AQ 

LOA 

-STA 

UJP 


O 


FILE OUTPUT 


"GETCORE GET ANOTHER.BLOCK OF.CCRE.... 

F4,X3 +PSA LOAD THE PREVIOUS BLOCK NUMBER 

-.CORE+i.—.WRITE.BACK POINTER.-.... 

3 IT23 INDICATE THAT THIS BLOCK HAS 

COREP,Xl+CNBLK BEEN WRITTEN INTO 

—2 x2Tepi3 , x ___...SET'-THE .CURRENT POSITION..-.-." 

LEVEL,0 PUT THE MONITOR INTO PROGRAM 

. CR, X 3 + PSA.STATE... 

F OUTW 04 

T6,X3+PSALOADWORDCOUNTANDBINARYBIT 
C ORE,X2 + CPPX WRITE WORD CCLNT INTO THE IR GAP 

-^•PF6'-rlTX'2+CPPX~-SKIP"IF THE FILE BLOCK IS'FULL 

A9/JMP,A15/++2 
A 9/ J M P » A15/ F 0 U T W 2 0 

o........... ' . 

CORE+2,X2+CPPX STORE THE END OF DATA WORO 

X2 + CPPX. CURRENT POSITION TO -A -.. 

GPP,Xl+CNBLK SAVE THE CURRENT POSITION 

777778 

—C ORE™ -----'WRITE THE-PCR W A RDPOINTER 

FLOAT FLOAT THE CURRENT BLOCK 

... UNSAVE......RESTORE.THE. USERS .REGISTERS. 

T6,X3+PSA RESTORE THE G REGISTER 

Q, X3+PSA 

. GPP, Xl+CNBLK--GET.-THE- .STATUS.BITS------ 

EPP,Xl+CNBLK LOAD THE HARDWARE TYPE 

9 SHIFT INTO POSITION 

—w-20-r—-—-AND“CFF SDR SIT————— -- 

HTMASK+408 SAVE EPP SDR BIT 

403 SKIP IF DESTRUCTIVE READ 

. * +2. 

203 SET SDR BIT FOR USER 

—HTMASK-MASK TO.THE HARDWARE TYPE.-. 

9 

39 COMBINE HT WITH STATUS BITS 

—Arffs-rpsia- srT -_ fl _ T0 the status • - 

EXIT 

T 2,X 3+PSA LOAD INDEX 3 

I3,X3 + PSA"...AND restore IT : ~. 

SKIP RETURN 


—---THE.RECORD. EXA C T L Y.FILLED. U P . TH E. 

BLOCK. REWRITE IT AND GET 
ANOTHER, WHICH WILL ONLY HAVE THE 

1 

TFL,Xl+CNBLK UPDATE THE THE FILE LENGTH 

"S EL8LK. GET.A. FILE BLOCK ........ 

C8P,Xl+CNBLK LOAD THE CURRENT POSITION 

...F-4.,-X 3-+-P-S-A -SAV E -IT IN A T EM P- 0 RARY .. 

CORE WRITE THE FORWARD POINTER 

REWRITEX REWRITE THE BLOCK 

. p .e LOCK OF.CORE.——————— 

F 4,X 3+PSA LOAD THE NUMBER OF THE LAST BLOCK 

0 ZERO IS THE END OF DATA WORD 

CORE+i. .. STOREBACKWARDPOINTERANDEOD 

8IT23 

COREP, Xl + CNBLK- THIS.BLOCK HAS BEEN WRITTEN INTO. 

FQUTW16 
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0 0 626 
0 0627 
00630 
0 0 631 
0 0 632 
00633 
00634 
00635 

00636 
00637 
0 0 640 
0 0 641 
00642 
00643 

.00644 

00645 
00 646 
0 0 647 


00550 
00 651 
0 0652 
.0 0 653 


00626 P 
20300566 X 

5360 00 00. 

20100006 
35077777 X 
03000650 P 
05200012 
01500636 P 
0100 4673 p 

00 00 057-0.P 

00000665 P 
00001142 P 
00001277 P 
00000676 P 
00001026 P 

.0 0 06 0 717.P 

00 00 0 716 P 

00 00 1025.P 

00000670 P 
00650 P 

00650 P 
04200003 

.05206062. 

01600636 P 
01004673.P 


00654 

-00655. 

0 0 656 
0 0 657 
6 0660 


0 0654 

. 0 0 654. 

20300626 
53600000 
0 5 60 00 04 
01600661 
0108 46 73 


00661 

06662. 

0 0 66 3 
00664 


...0C66T 

0 0 00 0 570 

00 00 0-665. 

00 001140 
00 00 1277 
0 0 665 


FCONTROLEQU 
LD A 

-r*.. TAI. 

LD A 
SS A 

——.AZJ,EQ 

ISG 
UJP, I 
UJP 

FCNTRL1-. 00.— 


FCNTRL2 


FCNTRL3 


EQU 
ISE 
ISG 
UJP, I 
-UJP- 


PUNCNTRL EQU 
PRCNTRL EQU ' 
LDA 

—...TAI. 

AS G 
UJP,I 
-UUP 


PRC NTRLI EQU. 

00 

.-.-.-. 0-0 .- 

00 

00 

PRCNTRL2EGU.. 


FILE AND PUNCH CONTROL 


T 6,X 3+PS A 

.X 2.--- 

EPP,Xl+CNBLK 
NeiT20 
FCNTRL3. 

FCNTRL2-FCNT RL1,X2 
FCNTRL1, X2 
ZABORT 

STATUS- 

CLEAR 

WFH 

RELEASE -..— 

REWIND 

SFPFM 

S BPFM’. 

BKSPACE 

-F-WO SPACE-.—.. 

SETOESRO 


LOAD THE FUNCTION CODE 

PREPARE T G D E CODE...r -. 

CHECK FOR DESTRUCTIVE READ 
LEAVING A NON ZERO IF IT IS NOT 

SET... 

SKIP IF ILLEGAL 
DECODE THE FUNCTION 
ILLEGALFUNCTION 


.STATUS --------- 

CLEAR STATUS 

WRITE FILE NARK 

R ELEA SE"----—■ 

REWIND 

SEARCH FORWARD PAST FILE MK 
SEARCH BACKWARDPASTFILEMK 
SPACE BACKWARD 1 RECORD 

-SP AC E FOR W ARD.1 R ECORD..- 

SET DESTRUCTIVE READ, REWIND 


3 ,X2 

2 , X 2. 

FCNTRL1,X2 
Z ABORT--- 


SKIP IF RELEASE 

SKIP IF.NOT. STATUS OR “CLEAR 

DECODE THE FUNCTION 


T6,X3+PSA 
X 2...- 

PRCNTRL2-PRCNT RL1 
PRCNTRL1,X2 
ZABORT. 


LOAD THE FUNCTION CODE 

PREPARETODECODE. 

SKIP IF ILLEGAL 

ILLEGAL FUNCTION 


STATUS 

..CLEAR--- 

ACC WFH 
RELEASE 


00 = STATUS 

-01.=.CLEAR STATUS BITS 

02 = WRITE FILE MARK 
03 = RELEASE 


























































o 


CLEAR SOR AND REWIND 


CLEAR CON . LOAD THE MASK 

CPF)Xl+CNBLK MASK WITH THE STATUS WORD 

.RRCP---STORE- THE STATUS SACK AND RETURN 


CPP,Xl+CNBLK 

.2 3-15 ..._ CHECK FOR SAVE FILE...... 

CPP,Xl+CNBLK ANDFILEPROTECT 

REWIND PROTECT THE USER 

.B IT 2 0 ----,--- 

EPP,Xl+CNBLK SET THE 3IT INTO THE STATUS 

REWIND THE FILE FOR FREE 

- tP Tm C ttgCK-SLOCK NtmtET- 

STATUS JUMP IF ZERO LENGTH 

CBP,X1+CN8LK LOAD THE CURRENT BLOCK NUMBER 

.REWINDOT .JUMF.IF.IN.THE .FIRST SLOCK.. 

COREP,Xl+CNBLK GET THE CORE POINTER 

- REWRI TE.- - - - AND REWRITE THE BLOCK..-. 

LP,Xl+CNBLK LOAD THE BEGINNING BLOCK NUMBER 

C BP,Xi+GNBLK AND STORE IT INTO THE CURRENT 

--— BLOCK™NUMBEp——~ 

CPP,Xl+CNBLK LOAD THE STATUS BITS 

FPSV LEAVE FP AND SV SITS 

.'....“.1LSETET.THE.CURRENT.POSITION =.0 

LP8 SET THE LCAO POINT BIT 

.^CPP, Xl+CNBLK-...STORE.EACK INTO.THE.CONTROL.BLOCK 

TFL,Xl+CNBLK LOAD THE FILE LENGTH 

-1 COUNT IT DOWN BY 1 

3LKRyXi + C N SLK ~-~-ANDAOJUST~'THE NUMBER OF BLOCKS ~ 

BEYOND THE CURRENT BLOCK 
FINISH RETURN TO THE USER 
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FILE BACKSPACE AND SEARCH BACKWARD 


rsfif.r#r# w w » ff ? !t f « 




BKSPACE.-- S3PFH 


0 0716 
0 0 717 
0 0 720 
00 721 
00722 
00 723 
0 0724 
00725 
00726 
0 0 72 7 
0 0730 
00731 
0 0 732 
00733 

0 0734 . 

00735 
00736 
00737 
0 0740 
0 0741 
00742 

.00743. 

0 0 744 
00745 
0 074*6" 
0 074 7 
0 0 750 
0 0751 
0 0 752 
0 0 753 
00754 
00755 
0 0756 
00757 
00760 
0 0761 
00762 
00763 
0 0764 
00765 
0 0 766 
0 076 7 
0 0 770 
00771 


1460 0 000 
44300523X 
00705064 P 
77740000 
21 10 0 0 04 
27000244 X 

03104766.P 

27 00 0710 X 
77730000 

0 310 10 21.P 

27077777 X 
3700 0011 P 

.40 10 00 04 . 

20 10 0 002 

-03 10-0.737.P. 

00700372 X 
01000740 P 
00 70 0 374" X" 
20 10 0004 
17677777 
0310 0752.P 

20004001 
0070 Q 616 X 
00700735 X 
14600001 
34100005 
14600775 

.0100 0753.P 

15477776 

4410 0 0 04. 

53600000 
20204002 
0 330 10 01 P 
37005135 P 
40 30 0515 X 

16477777. 

5324Q00G 

15 477 776 .. 

03201006 P 
15600776 
-40 30 0760 X 
20004001 
00700744 X 
.14600001. 


SEARCH FLAG 

IF F'5.= 0.SEZ BKSPACE 

IF F5 1 0 SEZ S6PFM 

NUMBER OF WORCS LEFT IN THE RECORD WE ARE 
SPACING PAST. 




‘ £&&£ SJEJfcS: 


BKSPACE 

"6-ACKOl— 

6 AC K02 


i ACK03 


SACK04 


ENA 

~srA— 

RTJ 

VFD 

LDQ. 

LDL 

AZJ,NE 

LDL 

VFD 

AZJ,NE 
LDL 
LP A 

.STA 

LD A 

AZJ»NE 

RTJ 

UJP 

~RTJ— 

LDA 

ANA 

AZJJNE 

.LDA- 

RTJ 

RTJ 

•'ENA—— 

RAD 

ENA 

.UJP... 

INA,S 

SWA. 

TAI 

LDA 

AZJyUT 
LP A 
STA 

.XQ A, S 

AIA 

.INA » S. 

AZJ,GE 

INA 

“Sfrt—— 

LDA 

RTJ 

ENA . 


F5,X3+PSA 
SAVE 

A12/EINT. 

CPP,X1+CN8LK 
A UB % 

.IOSMASH.-.-.-Sir- 

L P8 

A 12/DINT 

CKSEARCH. . t 

NE0D8 

N FM3RP _ 

C PP , Xl+CNdLK 
COREP,Xl+CNBLK 

*+3---. 

FIX 
* +2 

.RESERVE 

CPP, Xl+CNBLK 
77777B 
BACK03 

.CORE-+1-- 

REWRITEX 

FIX 

3 LKR, X1+CN3LK 
WPF8-1 

¥ +2 . 

-1 

CPP, Xl+CNBLK. 

X 2+CPPX 

C ORE + 2 ,X2 +CP P X 

BACK 0 5.* 

BIT16M1 

F6,X3+P$A 

- 0 

X2+CPPX 

BACK 0 6 ~ 

WPF3 

"F6*rX3 + PSA— 

C ORE +1 
REWRITEX 

1 .. .. 


INDICATE BACKSPACE 

S3FFM JUMPSHERE. 

SAVE INDEX REGISTERS AND FAULTS 

LOADTHESTATLS WORD 

CHECK FOR ABNCRHAL/UNAVAILA8LE 

KILL.THE FINK.-.-. 

BRING THE LOAD POINT BIT TO A 

DO NOT BACKS?ACE PAST LOAD POINT 
RESET EOD, FM, AND BRF INDICATORS 

STORE.THE.MODIFIED.STATUS.BACK. 

LOAD THE CORE POINTER 

JUMP.IF.IN.CORE. 

READ THE CURRENT BLOCK INTO CORE 

RESERVE THE CORE BLOCK .~.. 

LOAD THE CURRENT POSITION 
AND OFF THE STATUS BITS 

JUM F IF THE INTER RECORD GAP 

IS IN THIS BLOCK 

LOAD ThE BAG K.POINTER 

REWRITE THE BLOCK 
READ THE CURRENT BLOCK INTO CORE 
THENUMBER OFBLOCKSFAST THE 
CURRENT BLOCK HAS INCREASED BY 1 
POSITION IS NOW AT THE END OF 

THE CO RRENT 3 LOCK...~ “ 

MOVE BACK PAST THE RECORD GAP 
UPDATE THE CURRENT POSITION 

LOAD THE INTER-RECORD GAP WORD 

JUMP TF.IT IS A FILE'MARK.*.... 

MASK TC 16 SITS 


ADD IN THE CURRENT POSITION 

-CO MP E NS AT E .FOR.TH E.I-R.G AP. 

JUMP IF THE END IS IN THIS BLOCK 
UPDATE THE COUNT OF WORDS 

AND. SAVE .ITINF6 

LOAD THE BACKWARD POINTER 

REWRITE THE BLOCK 

TH E NUMBER OF BLOCK S BEYOND THE 


0 0 772 

0 0 77 3 

34100005 
20 30 0 766 

X 

843 

844 


RAD 

.. LDA- . 

8LKR»Xl+CNBLK 
.f 6,X3+PSA. 

CURRENT BLOCK HAS INCREASED BY 1 
.LOAD.THE.CURRENT.POSITION -. 

00774 

00775 

0 0 776 
00777 
01000 

44 10 000 4 
03201010 
08700745 
20300773 
01000765 

p 

X 

X 

p 

845 

846 

—647“ 

84 6 

849 


SWA 

AZJ,GE 
•~RTJ— 

LDA 

UJP 

CPP,Xl+CNBLK 

BACK 0 8 

F 6,X 3 +PS A 

BACK04 

PUT IT INTO THE CURRENT POSITION 
POINTER AND JUMP IF DONE 

—— R E A o—I N”~T”H E.CURRENT.BLOCK---- 

LOAD THE CURRENT POSITION 

LOOP SACK 

010 0 i 

20 00 0674 

X 

.851 . 

..BACK 05. 

.LDA.. 

..EMB..-.:. 

.L O AD IK £.FILE.H A ELK RE AD.BIT. 

01002 

01003 

n A n A i. 

3410 0 0 04 
14600000 

V 

852 

853 

„ „.. ^. „ o jr f, . , 


RAD 

ENA 

C PP» X1 + CN3LK 

0 

tr c y *2 idca 

OR IT INTO THE STATUS WORD 

ulUllH 
01005 
010 0 6 

4 0 b u U/x ( 
01 00 10 07 
44100004 

p 

.u:?4 

855 

856 

BACK06 

b.1: A 

UJP 

SWA 

rv 3 a o+ r jh 

BACK 0 7 

CPP,X1+CN8LK 

.ul'l'AK ! lit jtHHun rtMb 

AND GO CLEAN UP 

UPOATE THE CURRENT POSITION 

.01007. 

01010 

01011 

.0070056m 

20100003 
2110 0001 

X 

....857. 

85 8 

359 

.5ACK07 

8 AC K 0 8 

.RTJ. 

LDA 

LDQ 

.FLOAT. : . 

C BP,Xl + CNBLK 
.LP, Xl+CNBLK.... 

FL0AT . THE .CURRENT BLOCK .. .. 

LOAD THE CURRENT BLOCK NUMBER 
COMPARE IT WIIH THE LOAD POINT 

01012 

01013 

n a n *i 

03501017 

20100004 

n or. -CL ; \ n n n h 

P 

860 

861 


AQJ,NE 

LOA 

BACK 0 9 

CPP, Xl+CNBLK 

A 

JUMP IF NOT AT THE LOAD POINT 

LOAD THE CURRENT POSITION POINTEF 

U 1U 14 
01015 

UPOUUUUi 

35000725 

X 

... 0 o d ' 

863 


SS A 

JL 

LP8 

brv lr 1 r N U 1 At Int LU AU rUlNl 

SET THE LOAD POINT BIT 
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FILE BACKSPACE AND SEARCH BACKWARD 


(L 

CD 

CD 

3 

3 

3 

O 

O 

O 


uio 


01016 

01017 

01020 


01021 

01022 


4-0 10 0 0 04 
14200721 P 
01001103. P 


2 0 30 100 4“ 
03100566 


06 4 
065 
866 . 

867 

868 
86 9 
87 0 


i AC K 0 9 


STA 

ENI 

UJP 


.CPP,Xl + CNBLK. 

SACK 0 2}X2 
FW0SPQ9. 


AND STORE IT BACK 
ENTER RETURN ADDRESS 
CHECK-FOR-.COMPLETION 


CKSEARCH LDA 


F5,X3+PSA 


LOAD THE SEARCH FLAG" 


010 2 3 

00 70 5072 P 

871 


RT J 

UN3AVE 

OTHERWISE, GET MAD 


.'.01024. 

01004673 P 

....o 0 717.P.—.-..- 

87 2 

873 

... 3 / 4... 

. 5 gpFM. 

UJP 

.FQU..... 

ZABORT 

. B ACKQ 1_:_ 

....THE.A.R- EG IS TER.MUST.B E.NGN-ZERO. 




8 7 5 

5" 


U nvIV w JL. . 

AT THIS PCINT 



S CD 

“CD 

P 

5 o 

9 

'3 

L 

80 

- 6 

G 

, o i 

,o 


.. z t 


O 

O 


o 

o 


o 


o 

o 

q 2 


o 

o 

o 

o 


o 


o 
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FILE FORWARD SPACE AND SEARCH FORWARD 


01025 
010 26 
01027 
01030 
01031 
01032 
01033 
01034 
01035 
0103 6 
01037 
01040 
01041 
01042 
01043 


14 60 0 0 00 
44301021 X 
00705064 P 
77740000 

.2110 0 0 04. 

27000723 X 

.03404766.P- 

27000347 X 
77730000 
“034U*±e*24™P" 
27000025 X 
37000011 P 

T0IW0T4.”. 

20100002 
-03 40-40-46.P 


0107 4 
01075 
01076 
01077 


“01 0 Q-44G 2*™P" 
40301070 X 
00701044 X 
.01001064.P 


675 
83 0 
881 
882 

883 

884 

885 

886 . 

887 

869 
89 0 

891 

892 

893 

894 

895 
696 
89 7 
898 
*89'9" 

900 

901 

902 . 

903 
-90-4- 


¥¥ »?»»«»»» ¥¥ ¥¥•¥¥¥¥ ¥¥¥•¥¥■¥¥¥¥■¥•¥¥«•¥¥¥ ifV-f ¥'¥*♦'**'¥* ¥ ¥¥ * ¥¥ ***¥¥¥ ♦ * * ¥¥*¥*•**** V-V- 

* ¥ 

.i..-.FWO SPACE.«•.S-F-PFM---—..-.-. m .—...-----.-.-.-.-.-. * 

¥ 

* F5 

*-¥ - —.■ -- 

¥ 

* F6 

. . . . 

* 


SEARCH FLAG 

IF F5 -0 SEZ FW DSPACE 

IF F5 F0 SEZ SFPFH 

NUMBER OF WORDS LEFT IN THE RECCRD WE ARE 
SPACINGPAST 


. 


¥ 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 


930 
"9*31 
93 2 
933 
■934 


F WD SPAC E 
F WO SP 01 

FWDSPQ.2. 


ENA 
SWA¬ 
RT J 
VFD 
LDQ 
LDL 
AZJ, 
LDL 
VFD 
AZ J , : 
LDL 
LPA 
STA 
LDA 

AZJ $ N£~ 


NE 


NE 


01044 

0070 0776 

X 

905 

RT J 

01045 

0 1 00 10 47 

P 

9Q 6 

UJP 

*040 46 • 

0070073/ 

X 

..g q 7 — 

R T J 

01047 

20100004 


908 

LG A 

01050 

53600000 


909 

TAI 

01054 

01052 

.'2T2 0 5 0 02. 

03 00 1135 

p 

.940.. 

911 

.....LDA. 

AZJ,EQ 

01053 

03301117 

p 

• -912 

..AZ J 1 IT 

01054 

37005135 

p 

913 

LPA 

01055 

21100004 


914 

LOQ 

01056 

17777777 


.915 * 

——————Arttt—— 

01057 

53040000 


916 

AQA 

01060 

15600002 


917 

INA 

01061 

01062 

.0 540 0776. 

010Q1100 

p 

.918”. 

919 

.A”SG”,S. 

UJP 

(11063 

AT) 300777 

X 

9 ? n . 

.._..SY/\.. 

01064 

2GQ04000 

.A........ 

...4+fc.U. 

921 

FNDSP03 LDA 

01065 

00700770 

X 

922 

RTJ 

-040"66“ 

14477776 



ENA, S 

01067 

34100005 


924 

RAO 

01070 

20301Q63 

X 

925 

LDA 

■'04O7T. 

.45477001. 


g - 26 

.. IN - fl y S . 

01072 

44100004 


927 

SWA 




- ?« 

¥ 

01073 

0540 0 776 


929 

.asgTs" 


0 

F5,X3+PSA 
SAVE 

A12/EINT 

.CPP,Xl+CNBLK. 

AUB 

IOSMASH--- 

E0D8 

A12/0INT 

CKSEARCH-*-*- 

NLP 8 
NFM8RP 

CPP,X1+CNBLK 
COREP,Xl+CNBLK 

.+ + 3 — .- - 

FIX 

jf. ^ 

RESERVE 
CPP,Xl+CNBLK 
X2+CPPX 

COR E + 2,X 2+CP P X 
FWDSP10 

-F-WDS-P-0-5--- 

BIT16M1 
CPP,Xl+CNBLK 
7 777 7B —- 

2 

, .- 

FWDSP04 

-F-§, X 3+PSA. 

CORE 

REWRITEX 

8LKR,Xl+CNBLK 
F 6, X3 + PS A 


INDICATE FORWARD SPACE 
SFPFHJUMPS HERE' 

SAVE INDEX REGISTERS AND FAULTS 


WORD 


LOAD.TFE STATLS 

CHECK FOR ABNORMAL/UNAVAILABLE 
KILL- THE 
END 


CF 


-FINK 
DATA BIT 


TO A 


DO NOT SPACE PAST ENDOF DATA 
RESET LP, FM, AND 8RP INDICATORS 

.BIT.AND STORE.IT.BACK. 

LOAD THE CORE POINTER 

-JUMP- IF TH-E. BLOCK .IS.IN.CORE. 

READ THE CURRENT BLOCK INTO CORE 


RESERVE THE CCRE.SLOCK 

LOAD THE CURRENT POSITION 


THE 


CPP,Xl+CNBLK 


-U*JP“ 

STA 

RTJ 

UJP"” 


WPF8 

"PWOS*P'0'8~— 
F 6,X 3+PSA 
F T X 

FWDSP03 


LOAD.THE IFTTER -R ECO R 0 GAP W 0 R D 

JUMP IF END CF DATA 

-JUMP- IF.A.-FILE.MARK ---—.-. 

MASK TC SIXTEEN SITS 
LOAD THE CURRENT POSITION 

MASK OFF THE - 

AOO THE CURRENT POSITION TO 
RECORD LENGTH AND ADD 2 

SKTF.IF THE.NEXT.RECORD”.DOES.NOT. 

END IN THIS BLOCK 
-S A V E TH E MODI FIFO R EC O R O LENGTH 
LOAD THE FORWARD POINTER 
REWRITE THE BLOCK 

THERE.IS NOW.ONE.LESS.BLOCK*. 

REMAINING PAST THE CURRENT BLOCK 
LOAD THE MODIFIED RECCRD LENGTH 

C O U NT.D O HU.B Y.T H E N U M B E R.OF ~ WO R O S 

PER FILE SLOCK AND STORE IT INTO 

-TEE.-C-U-S-R E N T.P 0 S-IT-IO-N.P-01- N TER.—_. 

SKIP IF THE RECORD DOES NOT END 
IN THIS FILE BLOCK 

SAVE THE MODIFIED RECCRD LENGTH 
AND READ THE CURRENT BLOCK IN 
TO OP.BACK.*.”...:. .“ 


U1100 4410 0 Q 04. 

01101 00701007 X 

01102 14201030 P 

.01403.2 0 30 10 26.X. 

01104 0 3 011 0 565 P 

.0110 5...2 0 30 0 316.X 

01106 03002441 P 

01107 00777777 X 

OHIO 446 77777 X 
01111 35077777 X 

01112 40001111 X 

04113".2 0377777 X. 

01114 15477776 

01115.44 3 01143.X. 

01116 01000565 P 


9o 6 

93 7 

938 

“PWBSP04 

FWDSPQ8 

RTJ 

ENI 

CP P,X1+C'N 8 L K 

FLOAT 

FWDSP02, X2 

-.UP DATE~*T H Er.eu RR ENT**P0SIT40N* 

FLOAT THE CURRENT BLOCK 

ENTER CONTINUATION ADDRESS 

.939.. 

940 

941 

.FWQ”S”P”B9.‘ 

COA 

AZJ,EQ 

LDA . 

.F5,X 3 + PSA.“ 

REAORTN 

.CMGODE ,-X3-+PS-A. 

.GET.SEARCH/SPACE.FLAG " 

DONE IF NOT SEARCHING 
.G E T CON T R C L - A.F LAG... 

942 

943 

..ni. 1 . , 


AZJ,EQ 

RTJ 

CT M A 

UJP0X2 

CMQSET 

CONTINUE SEARCH IF NO ERRORS 
MAKE AN OFFIGAL REQUEST 

y 44 

945 

946 


cNA 

SS A 

3TA 

b Wd 1 1 

FLAGS 

FLAGS 

ruK uUIm lKUl nUUtl AND otl 

THE SWITCHING BIT SO THAT 

WE WILL JUMP TO OCONTROL 

.957.‘ 

948 

94 9 


LDA. — .. 

IN A , S 

,SWA -_ ........ 

T1,X 3+PSA. "F" 

-1 

T 1, X 3 + PSA ..... 

GET . USERS . PROGRAM.COUNTER. 

DO NCT ALLOW THE PC TO ADVANCE 

950 


UJP 

REAORTN 

EXIT AS IF OPERATION DONE 
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01117 

01120 

...11 -M ? i. 

20001001 

34100004 

.4 5 ?-fl n o n 4 . 

X 

952 

953 

.QS l . 

FW0SPQ5 

LDA 

RAD 

TNT 


0 

01122 

01123 

5320 0 000 
44 10 0 0 04 


955 

956 


TIA 

SWA 


Q .... 

...0112 4 

01125 

01126 

.0 > 6U 0 7 76 

01000564 
15477001 

p 

957 " 

95 a 

95 9 


AS G 
UJP 
INA, 

S 


..01127. 

01130 

.04131. 

4410 0 004 
20 00 4 0 00 

.nn. 7 n 4 .nAS... 

„x.... 

960 

961 

.q . 


SWA 

LDA 

.DTI. 


O " 

01132 

01133 

14477776 

34100005 


963 

564 


ENA, 

RAD 

s 

o... 

~— •01134 

01135 

01000565 

20 001034 

X 

965“ 1 
966 

96 7 

FWQSP10 

_U-jp- 

LDA 



01136 

01137 

34100004 

01000564 

p 

96 a 

965 

—0.7-0_ 


RAO 

UJP 


o 


01026 

p 

971 

97 2 

SFPFM 

r 

EGU 



o 


o 

o 

o 

o 


o 

o 

Q, 

i ,d 

CT 

'1 o 

o 9 

O s 


o 6 

o 5 



o 


FILE FORWARD SPACE AND SEARCH FORWARD 


F M3 LOAD A FILE MARK.READ BIT.'.:.*.. ' 

CFP,X1+CN8LK OR IT INTO THE STATUS 

.1,X2+CPPX....ADVANCE.TC.THE-.NEXT.WORD. -.--- 

X 2+G P P X CJI 

C PP, X1 + CN8LK UPDATE THE CURRENT POSITION 

„, W p F , r ,„„ .IP~IN THE NEXT 310 C K~ — ————— p 

READ FX 

-WPFQ.....DECREHENT.THE. PCINTER........... q Cl 

CPP,X1+CN8LK AND STORE IT BACK 

CORE LOAD THE FORWARD POINTER 

—REWRT-TE-X -REWRITE THE 8LCGK - ------ 

-1 THERE IS NOW ONE LESS BLOCK PAST Q 

BLKR ,X1+CN8LK THE CURRENT FILE BLOCK 

-“READ RTNT" ---—___________ --- l 

EOOB SET THE EOD BIT INTO THE STATUS ‘»Q 

C PP, X1+CN3LK..'.....'.....■. ... ......... 

READFX 

FWDSP01 THE A REGISTER MUST BE NON-ZERO O 

AT THIS POINT 


O 


O 


O 


O 


O 


O 


o 


o 


o 


o 


o 


o 


o 


o 
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0114 0 
01141 

..n m 4 ?. 

14600001 
3410 0 0 00 
00705 0-64 

.P... 

97 5 
976 

Q 7 7 

ACC ft FM 

....W F M. 

ENA 

RAD 

.PTt. 


a 

01143 

0 1144 

20100004 

03304763 

P 

978 

97 9 


LDA 
AZ J, 

LT 

(D 

01145 

01146 

01147 

37 OU 10 32 
21100007 
04 50 0 000 

x.~.... . 

98 0 

981 

982 


LPA 

LDQ 

QSE, 

S 


01150 

01151 

....o 115 P_ 

03104766 
20001015 
35-10 Q 0-0 6 - 

p 

X 

983 . 

984 

.Qftfi. 


AZJ, 
LDA 

.A. 

NE 

Q 

01153 

01164 

w ^ X U U 'U u 

40100006 
2010U004 


986 

987 


ST A 
LDA 


0 _ 

0115 5 
01156 
01157 

0 460 0 775 
01001220 
1460 0001 

P 

9 8 8 . 

989 

990 


UJP 
.ENA 



“..01160. 

31100005 


.991.~ 


SB A 




01161 

. 01162. 

14201163 
010 0 0 27 6- 

P 

p . 


992 

. 9 g .3 . 

WFM00 

ENI 

.UJP. 

O 

01163 

01164 

20100002 

03001167 

;i n ,~7 n a . n i ..cl 

D 

V.... 


994 

995 

. n n cl . . . 


LDA 

AZJ,EQ 

o . 

U11D3 

01166 

U U / J 1 U 4- O 
01001172 

A. 

P 


99 b 

997 

998 


K 1 J 

UJP 


01167 

.01170. 

...01167. 

20 10 0 0 05 
.03301264. 

P . 

P .... 


999. 

1000 

. 40 01 . 

WFR01 

EQU 

LDA 

. .A Z J , LT 

o 

01171 

01172 

00701076 
20 QQ4Q00 

X 


1002 

1003 

WFMO 2 

RTJ 

LDA 

o . 

0117 o 
01174 
0117 5 

21 TO 0 0 U 5' 

00700377 

24100005 

X 


~ 1004. 

1005 

100 6 


tost 

RTJ . 

LCA 


..01176. 

01177 

... 0120-0. 

.T 5 "5 0 O Q O T” 

34100007 
. 14.60 0 0-0 0. 



.10 0 7. 

1008 

. .1009... 


.INA. 

RAD 

....._ ENA. 

O . 

01201 

01202 

44100004 

40100005 

,o A 0 0 0^07 ■ 



1010 

1011 


SWA 

STA 

i P i\ 

o . 

Ulruo 

01204 

01205 

C J U U U b L 3 

40 004777 
40100002 

X 


llilc 
1013 
. 1014 


L. A 

STA 

STA 


...■'0X205"" 

0 120 7 
. 01210 . 

.0O7UX5T2. 

2110 Q 003 
.4-1-30-0-62-0. 

X.~“ 

X .-. 


..IQ 15. 

1Q1 6 

.1.047-..__ 


..’RTJ. 

LOG 

STQ_ 

O .'. 

01211 

01212 

40 004000 
00701131 

X 

V 


1018 

1019 


STA 

RTJ 

r\ t f 

o _ 

U 1 5 
01214 
01215 

20 301210 
14700000 

A 

X 


iU£'J 

1021 

1022 


K 1 \J 

LOA 

ENQ 


01216 

01217 

45 0 0 4 0 01 
01001255 

? 


.10'2'3 

1024 


"STAG" 

UJP 


O 

0122 0 
n 4 O O 4 

24100005 

n ~7 O A 4 ■ 4 C. 4 


1026 

4 n Q z 

WFMG3 

LCA 

CX _. 

U Ldd 1 

01222 

01223 

U $ Eli 11 b 1 
2010 0002 
03001226 

"P . 

P 

. ltir/ . 

1028 

1Q 2 9 


AZ'J f ut 
LOA 

AZJ,EG 


~.0X224 ' 

01225 

0 0 7 0 IT 6 5 
01001232 

"X... 

P 

1030 

10 31 


.RTJ. 

UJP 

O' . 

n 4 0-0 CL . 

01226 
o n 4 n n,. n.n. i.. 

P 

10 33 

. , a n z 

WFMO 4 

EQU 

s. n a 

i u -.. . 

cl. 

U 1 <L c. D 

01227 

01230 

c. U Hi U U U 4 
37001151 
03101264 

X 

P 

1 U 04 

1035 

1036 


UiJrt 

LPA 

AZJ,NE 


01231 

01232 

.:.01233.. 

00701171 
20004000 
.21100005 

X 

1037 

1038 

.... 10 39__ 

WFMO 5 

RT J 

LDA 

-.LDQ_ 

o ? 

01234 

01235 

... .. ft A . 0.72 41. ,. . 

00701174 

20100004 

i c Olio n T« i 

X 

1040 

1041 

WFMO 6 

RTJ 

LDA 

o,__: 

u Icoo 
01237 
01240 

l b DU U u U1 

44100004 

53600000 


1 u *+c 

1043 

1044 


IN A 

SWA 

TAI 


01241 . 

01242 
.. 012.43. 

.T20 77776 

05640000 
..15 377 774 


. ■ . T0~4~5 . 

1046 

..1047 . 


SHA 

AS G 

. TNI.___ 

O . 

01244 

01245 

24100005 

0 5 40 0 0 00 

‘z /. z Fl n z z n 

v 

1048 

1049 


LCA 

ASG , S 


.. .. y. £ Lj. Q.- 

0124 7 

\J 4 O U U b vjr U 

3410 0 0 07 

A 

1 U b U 
1051 


KA U 

RAD 


o 


WRITE FILE HARK 


ACCWORD,Xl+CNBLK 

SAVE- .-.---- 

CPP,X1+CN3LK 
FPV 

A U3....— 

TFL,Xl+CNBLK 
0 

I OSHASH 
3 IT 2 2 

EPP,Xl+CNBLK-- 

EPP,Xl+CNBLK 
CPP,Xl+CNBLK 
'WPP 3 ^«1— 

WFM03 

1 

.BLKR, X’l + CNBLK. 

* +2,X 2 

OVERCHEC...— 

COREP,Xl+CNBLK 
WFH01 

R ESER v-E—— 
WFH02 


BLKR,Xl+CNBLK 

.WFMO 8. 

FIX 

CORE 

FREEFILE 
8 LKR,X l+CNBLK. 

TFL,Xl+CNBLK 

0---- 

CPP,X1+CN8LK 
BLKR,Xl+CNBLK 
8IT23- 

C ORE+ WPF8+1 
COREP ,Xl + CNBLK 

'SELBL'K. 

GBP,Xl+CNBLK 

.F4,X 3+PSA.. 

CORE 

REWRITEX 
GETCORE — 

F 4,X 3+PSA 
0 

"CORET+T . 

WFM0 7 


FILE NARKS CCLNTAS.1RECORD 

IN THE ACCOUNTING WORD 

SAVEINDEXREGISTERSAND FAULTS 

LOAD THE STATUS WORD 

JUMP IF PROTECT VIOLATION 

CHECK FOR ABNORMAL/UNA V AIL ABLE 

LOAD THE FILE LENGTH 

SKIP IF ZERO LENGTH 

KILLTHEFINK 

SET THE CHANGE ElT 


GET THE CURRENT POSITION POINTER 
SKIP IF AT THE END OF THE SLOCK 
THIS IS THE EASY CASE 
THIS WILL ADD 1 FILE SLOCK 
"SUBTRACT THE BLOCKS REMAINING 
ENTER THE RETURN 

CHECK.THE FILE SPACE.LIMIT.-. 

LOAD THE CORE POINTER 
JUMP IF NOT IN CORE 
-RES E R V £ THE C OR E — —. 


JUMP.IF.AN EMPTY FILE.—--— 

READ THE CURRENT BLOCK INTO IT 
LOAD THE NUMBER OF THE NEXT 

-FTtE BLOCK AND THE LENGTH . 

GO FREE IT 
PREPARE fC UPDATE 

ADD.ONE.BLOCK.■. .".~ 

UPDATE THE FILE LENGTH 

CPP.AND.6LKR.WILL.-BOTH.BE.ZERO AT 

THE END OF THE OPERATION 

LOAD THE -PTtE—MARK.CODE~.-.~.-. 

WRITE IT INTO THE BLOCK 

AND STORE THE CORE POINTER BACK 

"GET.A. FILE .BLOTCTK ’.~. 

LOAD THE CURRENT SLOCK NUMBER 

-S A VE IT F 0 R T H E BA C K P 01 NT £ R. 

WRITE THE FORWARD POINTER 
REWRITE THE BLOCK 
GET A ELOCKCF CORE 
LOAD THE LAST BLOCK NUMBER 
ZERO IS THE END OF DATA WORD 

"WRITE.THE. "8 AC K.POINTER. : .’. 

GO CLEAN UP 


BLKR,Xl+CNBLK 
WFHO-Q" 

COREP,Xl+CNBLK 
WFMO 4 

"RESERVE.~.. 

WFHO 5 


LOAD THE CORE POINTER 
JUMP IF NOT IN CORE 
RESERVE.THE.CORE"’."’". 


CPPfXl+GNBLK— 
L P6 
WFMO 8 

FIX .... 

CGRE 

.a-LKa,-Xl-+0.N8L-K. 
FREEFILE 
CPP,Xl+CNBLK 
1 • — 

CPP,Xl+CNBLK 
X2+C P PX 

4 00 0 0 B 

- 3,X3+PSA 
BLKR,Xl+CNBLK 
0 

5 FOLKS,X3+PSA 
TFL,Xl+CNBLK 


JUMP IF AT LOAD POINT 

"READ THE CURRENT BLOCK INTO".IT. 

LOAD THE FORWARD POINTER 

.LOAD.THE.NUMBER.OF.BLOCKS.BEYOND. 

FREE THE FILE SPACE 
LOAO THE CURRENT POSITION POINTER 
■UPDATE- IT — ~ 

STORE THE POSITION BACK 


SKIP IF A SAVED FILE 

BIAS.FOR.SCRATCH.FILES. 

KEEP THE TOTALS CURRENT 

IF ZERO LENGTH ACCOUNTING IS DONE 

ADJUST TOTAL USER- BLOCKS. 

ADJUST THE TOTAL FILE LENGTH 
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01250 
01251 
■in-PSP- 

1470 0 000 
4110 0 0 05 

.„x. 

10 52 
1053 

.ins. 4 . 


ENQ 

STQ 

. 1 .n t. 

Q 

01253 
0125 4 

20 001203 
45204001 

X 

10 55 
1056 


LDA 

STAG 

3 

0 125 5 
01256 
01257 

2 0 001253 
40 10 0002 
20100004 

X ."■■■.*' ■ 

1 0 5 7 
105 8 
1059 

VI FM 0 7 

LO A 

STA 

LDA 


01260 

01261 

0 1262 

37 QUO 015 
35 00 0012 
.4 0 10 0 0 04. 

p 

p 

1060 

1061 

.1Q62.. 


LP A 

SS A 

.STA.- 

O 

0126 3 

01000562 

p 

1063 


UJP 

O ... 

01264 

00701213 

X 

1065 

.W.FM.0.8. 

RTJ 


. .0126 5. 

01266 
____ni?A7 

14477777 
40 004001 

. .g..a4.n.n...fi.n4- 


.10 6 6 

1067 
.i.n 6 ft. 


ENA,S 

STA 

_ i..n.A_ 

O ' 

u lew 7 

01270 

01271 

jj X U U U U X 

2110 00 07 
00701234 

X 

x u o o 

106 9 
1070 


LuH 

LDQ 

RTJ 

o . 

.01272 

01273 

01274 

0 0 7 0 12 0 6 
40100001 
40100003 


..10 71. 

1072 

1073 


‘■"'RTU"' 

STA 

.SI.A_ 


01275 

01276 

'T420T235^ 

01000371 

p 

X 

.1074. 

1075 


ENI 

UJP 


o 


o 
o 
o 
o 
o 
o 

Q : 

d 5 

' 1 c 

o E 

o' 

: O s 

o 5 


o 


WRITE FILE MARK 


0 ' CLEAR.THE.COUNT CF.BLOCKS. LEFT 

SLKR,Xl+CNBLK BEYOND THE CURRENT BLOCK 

.RPSAPTR,X3+PS A--RESTORE THE PS A INDEX -- 

BIT23 LOAD THE FILE MARK CODE 

CORE+l,X2+CPPX STORE THE MARK INTO THE BLOCK 

~8TT2'3* — — —L0AD THE ALTEEED INDICATOR.. 

COREP,X1+CN3LK STORE IT eACK 

GPP,Xl+CNBLK LOAD THE STATUS WORD 

.WRMASK . . CLEAR A BUNCH OF 6113 

FME008 SET FM AND ECC EITS 

.CPP,Xl+CNBLK-STORE.IT EACK . 

FOUTW18 RETURN TO THE USER 


GETCORE 

777771. . . 

CQRE+1 SET THE BACKWARD POINTER 

LP,-Xl + CNBLK-LOAD THE STARTING BLOCK NUMBER 

TFL,Xl+CNBLK LOAD THE FILE LENGTH 

FREEFILE RELEASE THE FILE SPACE 

"SEL3LK --GET A 'FILE ' BLOCK"..... 

LP,Xl+CNBLK 
DBP,Xl+CNBLK 

W FMO 5 , X2 .ENTER T HE RETURN ADDRESS. 

FDZAP TAKE CARE OF THE FILE DIRECTORY 
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0 

CD 

, CD 

O 

G 

O 

O 

O 

O 

O 

O 

O 

O 

o 

q 2 


01277.0 070 5 0 64 P 

01300 20100004 

.0 13 04~.03304763.P 

01302 37077777 X 

01303 40100004 

0150 4. 0300 1306 P 

01305 15300003 

01306 24001255 X 

01307.3710 0 0 02 

01310 00700703 X 

.01311-.2110 GO 07- 

01312 20100001 

01313 Q 0 701271 X 
01314 24100007 

01315 34377777 X 

01316 54301252 X 

.01317.1460 0 000. 

01320 40100000 

.01321.-4010 0 0 07.-. 

01322 14477776 

01323 40100005 

01324 14477777 

01325 40 10 0001 

01326 40100003 

01327.20 001227.X 

01330 35100006 

01331.37077777.X 

01332 40100006 

01333 14201335 P 

01334 ■ 010012 7 6 X~ 
01335 00705072 P 

01336 20 00 0013 P 

.01337.35100 0 04. 

01340 40100004 

.01341. 01000571.P 



O 


O 

O' 

o. 

G 

o 


RELEASE 


SAVEINDEXREGISTERSANDFAULTS 
LOAD THE STATUS WORD 
JUMF IF PRCTECT VIOLATION 


'SAVE. 

CPP, X1+CN8LK 

--FPV... 

S VB 

CPP,X1+CN0LK 

* +2 ...* —~ 

3 > X 3 + P S A 

8IT23 CLEAR THE ALTERED 8IT 

COREP,X1+CN3LK.IN THE CORE POINTER 

REWRITE REWRITE IT 

T FL, Xl + CN8LK--..LOA0 THE LENGTH OF THE FILE 

LP, X1+CN8LK LOAD THE FIRST BLOCK NUMBER 

FREEFILE FREE THE FILE 

T FL» Xl-rGNSrK——-———————-———— 

TF8LKS,X3+PSA 

RPSAPTR,X3+PSA RESTORE THE PSA INOEX 

.o.■..: .. 

ACCWORD,Xi+CNBLK 

T FL,X1+GN8LK-.SET.THE.TOTAL FILE.LENGTH..-.-. 

-1 THERE ARE NOW -1 8L0CKS REMAINING 

BLKR,X1+CN8LK BEYOND THE CURRENT BLOCK 

7 777 78” —— START ING BLOCK' FCR ZER0 LENGTH~™ 

LP,X1 + CN3LK SET THE LOAD POINT WORD 

C6P,X1+CN8LK STORE THE CURRENT BLOCK POINTER 

8 IT 2 2 .'. : .■... 

EPP,X1+CN8LK SET THE CHANGE BIT 

.N BIT-192 0 ------CLE AR CIST . REA0 AND FORMS 81TS 

EPP,X1+CN8LK INTO THE EPF WORD 

*+2,X2 ENTER THE RETURN ADDRESS 

.■■pDZAP~~~~----~~-~~^T' A -KE---GARE OF THE FILE DIRECTORY. 

UNSAVE RESTORE INDEX REGISTERS 

LPEQD8 FILE IS NOW AT LP AND EOO 

CPP jXiTCNBLK .SE T THE BITS INTO THE ST AT US 

CPP,X1+CN3LK AND STORE THE STATUS AWAY 

.A ST ATUS.- -.- - -.- -—.- -v—' - - - .- 
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. ... ... . ’...‘ ■ * - . . 

1116 * 

..-.—....1147--■*.CARD.READER INPUT 

1118 * 

********** ****** *** ****** *************************************** ********** 


■ ' ' -™~—^ — - — —— - -—— 

G1342 P 1121 CRINPW EQU * 

01342 00705064 P 1122 RTJ SAVE SAVE INDEX REGISTERS AND FAULTS 

. 04343.P.4123. CRINPWU1 EQU * . .~~. ...“..... . .. 

01343 21100004 1124 LDQ CPP,Xl+CNBLK 

.01344.2 7 00143 5.X..—.,-4425-LOL-EOD3---.HAVE WE.SEEN.THE.ECO WORD—.. 

01345 03001353 P 1126 AZJ,£Q CRINPW02 JUMP IF NCT 

01346 20300317 X 1127 LDA SYSCM,X3+PSA 

“ 01347. — 113 3 013 5 3.p" ” - 0 , 2 _.____,_ ALt . c . w . CM T0 

01350 00705107 P 1129 RTJ EXIT 

01351 44700004 1130 ENQ COREAD INDICATE THE USER IS 

" 01352 0100 4675 P..1131..“.UJP..QCONTROL READING A CONTRCL CARD. 

i. i 3 2 . 

.01353 27001451 P ---4433.CRINPWG2 LCD-NLPBFMED ..RESET LP, FM,ERF, EOD BITS. 

01354 40100004 1134 STA CPP,Xl+CNBLK BIT AND STORE THE STATUS BACK 

01355 20100007 1135 . LOA TFL,Xl+CNBLK IS THERE INFORMATION IN THE FILE 

. 0135 6 03 0013 77 P ..* 1136 — — —A ZDfECt—“CRTN P W G'3 ~ JUMP IF“ NCT “* 

01357 20100002 1137 LDA COREP,Xl+CNBLK LOAD THE CORE POINTER 

01360 03101363 P . 1138 A2J,NE * + 3 JUMP IF THE BLOCK IS IN GORE 

.U1361.0 0 704 231.X.4439 ' RTJ.‘..FIX READ.IN.THE CURRENT.SLOCK. 

01362 01001364 P 1140 UJP *+2 

.01363.0 0-701224.X--1444-RTJ--RESERVE-—---RESERVE.THE.BLOCK.OF CORE —. 

01364 20100004 1142 LDA CPP,Xl+CNBLK LOAD THE CURRENT POSITION POINTER 

01365 53600000 1143 TAX X2+CPPX LOAO RELATIVE POSITION INDEX 

—01366 —1-5-20 00 0 3—— - "44H4-------INI"-3TX2 + GPPr”~— _„_. eoKp p NSATr fQR TH E — 

01367 20203777 1145 LOA CORE-1,X2+CPPX LOAD THE INTER-RECORD GAP WORD 

01370 03101415 P 1146 AZJ,NE CRK1 JUMP IF NCT A FILLER RECORD 

.04374. 4410 00 04. .'..1447 .. SWA.CPP, XL+CNBLK .”. NEW.POSITION.IS NOW.ZERO. 

1148 IF DEBUG EQ 0, GO TO .DEBUG 001 

-.01372 20100005...-.-41-4-9----LDA--6LKR , Xl+CNBLK.....DEBUG.-. 

01373 05400000 1150 ASG,S 0 DEBUG 

01374 00001374 P 1151 HLT * DEBUG 

. 

U1375 00704644 P 1153 RTJ REWRITEY GO SWIZZEL THE CONTROL BLOCK 

01376 010Q1343 P 1154 UJP CRINPW01 GO CHECK FOR MORE DATA. ...._ 

..:. - .". .4155. . ... . .“. .'. . . .‘ .... .... ■ . 

01377 P 1156 CRINPWQ3 EQU * 

.0437-7 2 04-040-0 6..- — - - -.1157 -LOA- - EPP,X1+CN8LK ----I-S -THE FILE STILL BEING CREATED 

01400 056 77777 X 1157+001 ASG MAXOEST SKIP IF MACRO POINTER 

01401 01001403 P 1157+002 UJP *+2 

0140 2 ' 0i-g-o-±424~-H'——— — Tt5 ^——- ; -—.—-CttWA-lTA-_- S0 

01403 20300452 X 1160 LDA SELECT,X3+PSA 

01404 13077755 1161 SHAQ 6-24 GET BATCH TERMINAL NUMBER 

. 01405 ~VS 58 4040 “ ' .‘ : 1462....... TAX * .XT. 

01406 14600001 1163 ENA 1 

.01407 0-5 50 0-000— ---41-6-4...-Q4S~ r -S--O-—— -SKIP IF QTABLE NEEDS TO BE -- 

01410 01001412 P 1165 UJP *+2 INCREMENTED 

01411 341 77777 X 1166 RAD QTABLE,XI MAKE ANOTHER PSA LEGAL. 

— w .^„_ 0 . BWg . ;£ . r7 _^- ; -----——-RTtl”*”-E X1T— - 

01413 14700024 1168 ENQ VANISH TELL CONTROL MODE TO VANISH 

01414 01004675 P 1169 UJP QCQNTROL PLACE INTO CONTROL MODE 

..:.■.:. .....■ ... 1470..... ... .-... 

1171 

- -- 0-4415 P.—.1472.—CRK-1 .EQU--— --------...-.-—- ..- 

01415 05600001 1173 ASG 1 SKIP IF NCT A FILE MARK 

01416 14477775 1174 ENA,S -2 

^•D1417-—53240 400———————44f'5—————X-2-+4PPT<-—““•COMPUT'E-WHERE THE RECORD WILL END 

01420 05601000 1176 ASG WPF3+2 SKIP IF IT ENOS IN THE NEXT FILE 

01421 01001432 P 1177 UJP CRK2 BLOCK 

.01422 2 010 0005 : .... 1478 ~ ' LDA gxKR,Xl + CNBLK ARE WE IN THE LAST BLOCK : ... 

01423 03101432 P 1179 AZJ,NE CRK2 

.0442 4 0-4-745474—P —— ---118 0 —CRIWAIT-A RTJ ---UNSAVE -—-— -----—---— 

01425 14677777 X 1181 ENA CRWAIT ENTER THE I/O WAIT BIT 

01426 00777777 X 1182 IOWAIT RTJ IOSET SET THE BIT INTO THE FSA 

.014 27 54304346-X '. ....4!8 3 — R2WA4T ~LT3I~~““”—“--R-pstHTHT7<3^P'BA—” LOAD THE PSA ADDRESS . 

01430 00705100 P 1184 RTJ RZ EXIT FROM PROGRAM STATE ZERO 

01 451 0107 77 77.X.... 118 5...UJP.RMDONE......SCRAM CUT.OF.HERE 

01432 P 1187 CRK2 EQU + 

.0443 2 11477777.3 7777 3.1188.-.ECHA - - - 4-7-77-7-7-B.- -.- MASK THE WORD COUNT TO 16 BITS 

01433 37 30 0 654 X 1189 LPA T6,X3 + PSA 

01434 40301433 X 1190 STA T6,X3+PSA 

. 0443 5 ~4+r64QDL 4”——• .- £r-a -.1 ..- .—CHI ARGE~POR RE A DING~TH£ "C ARD*"——— 

01436 34100000 1192 RAO ACCWORD,Xl+CNBLK 


* * 

























































23 UIO CARD READER INPUT „ r 

.LDA . C 0RE-i, X2+CPPX.. : .~....".~ . . .' " 

AZJ,GE CRFINPW JUMP IF NCT A CONTROL CARD 

.-.-.LPA - - N81T2 3.-..MASK OFF THE CONTROL MODE BIT.- — -..-..-.-o 

AZJjEO FINPW09 JUMF IF ONLY A FILE MARK Cl) 

LDQ S YSCMj X 3 + PSA 

. — ™ Q3 G , S'—~ 0 - -........— ---— ——————~ ? 

UJP CRFINPW 

ENA ? S -1 .(J 

“.RAD...ACCWORO,Xl+CNoLK.....'.......~~..~....‘.~~. 

UJP FWDSP10 SET EOO AND RETURN 

NLP6FHE0OCT .4 2777777.NOT ( LF BIN FM EOD) BITS.~ .....~ "Q 


o . ..._..... : .*o 



. 7 .'.. : .■... 7 .’....’.'.‘.'..‘.’. : .T‘..‘....“.. O 


O ________________.._._1___...___ : . O 



Q 3 .-....-...:... .. . . . .... O 


A SSEMBLER/0S3 V 1.0 09/21/74 2229 PAGE 


0 

0 

O 


U 1437 
01440 
U 1441 
01442 
01443 
01444 
01445 
01446 
01447 
01450 


20 21)3777 . 

03200044 P 
37077777 X 
03 00 0 215 P 
21301346 X 
05500000 
01000044 P 
14477776 
3410 0 GO 0 
01 001135 P 


01451 42 777777 


119 3 
119 4 

1195. 

119 6 

119 7 

1198 

1199 

120 0 
12 01 
1202 

. 420 3 

120 4 


O 


O 
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~~.“.....0 1452.P.......J 

01452 P 1 

~ .-..0445 2.2 0 301434 X. j 

i (D 01453 5 360 0 000 j 

01454 05200002 J 

1 .01455“.0160 0636.P ————^ 

~ 01456 01004673 P J 

: 0 .._.....j 

[207 MSFCNTRL EGO 

.203 CRCNTRL EQU 

.20 5- : --Lu A- 

L210 TAI 

L 211 ISG 

.212. 

L213 UJP 

l21 4 

J 

i 

........01457.P.........1 

.215. 

.216 

.217.PA FC NT PL EQU. 

Q 01457 20301452 X J 

01460 53600000 J 

.216 LDA 

L 219 TAI 

01461 0 5 6 0 0 0 0 6 -: 1 

01462 01601464 P j 

0 01463 01004673 P j 

L 22 0 . "AS 6 

L 221 UJP, I 

L222 UJP 

1 

01464 P j 

..0-1-464.n non a.5.7..n. p..... .1 

. 22 3“... 

L 22 4 RAFCNTL1 EQU 

O 01465 00000665 P j 

01466 00002122 P : 

L 22 6 00 

L22 7 00 

0146 1 000U2106P j 

_ 01470 00001504 P j 

O 01471 00001477 P J 

L22 8 '00 - 

L229 00 

1230 00 

01472 P j 

.231 RAFCNTL2 EQU 


o 


o 

o 

o 

o 

o 

o 

Q„ 

O 1 

o g 

o § 

o 6 

o 8 


o 


MSF i CARD READER 9 AND R AF C ONTROL 


T6,X3+PSA--LOAD THE USERS G REGISTER — --- --— &, _ 

X 2 FUNCTION CODE TO X2 (3 

2 j X2 SKIP IF ILLEGAL 

“PCNTRtrlTXZ- -“ DECODE 1 HE REQUEST ' ' —— - —.-.—*-~ * £ ' 

ZA60RT HAVE NO MERCY ON SINNERS ^ 


T6,X3+PSA LOAD THE USERS G REGISTER 0 

X 2 PUT IT INTO THE INDEX 

RAFCNTL2- R AF C N TL1 ” .SKIP IF ILLEGAL - "”" -----*. .' 

RAFCNTLl» X2 JUMP THROUGH THE TABLE 

Z A80RT GET SERIOUS P 0 


-STA^U-S--—.-.00 

CLEAR 01 

RAFWFM 02 

RAFRtS —- 03 

RAFRWND 04 

RAFSFPFM 05 


Z l 

o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


status.—. 

CLEAR 

WRITE FILE MARK 
RE ueAS'E——— 
REWIND 

SEARCH FORWARD f 


PAST.FILE 
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. 01472 

0147 3 
. 01474. 

25300252 

05400010 

0 3 2015 06 

X 

D 

12 3 4 
1235 

.+ 7 3 6. 

RAFSEEK 

LDAQ 
ASG , S 
.AZJ-»GE. 

(2) 

01475 

01476 

20 077777 
01001337 

X 

p 

1237 

1238 

RAFAE 

LDA 

UJP 

Q 

U 147 7 
015 0 0 

20100006 
21 10 0 0 07 


12 o9 

1240 

1241 

RAFSFPFM 

LDA 

LDQ 


..01501. 

01502 
fl 1 50 3 

15577776 
04577776 
n i nai 51 o 

p .. 

1242 

1243 

1 ? L. L . 


INQ, S 
QS E, S 

. iup.. 

O 

01504 
0150 5 

14600000 

14700000 


1245 

1246 

RAFRWND 

ENA 

ENQ 

o 

01506 

01507 

51005136 
13 00 0 030 

p 

12 47 
1248 
124 9 

RAFSK01 

DVA 

SHAQ 


01510 

0 1611 
.01512 

4410 0 0 04 
20100007 
15 477776 


125 0 
1251 
.1252. 

RAFSKX 

SWA 

LDA 

IN A , s . 

o 

01513 

01514 

03 201517 
20100004 

p 

1253 

1254 


AZJ,GE 
LDA 

o 

01515■ 

01516 

01517 

37 001145 
03101475 
03701475 

p 

p 

125 5 

1256 

1257 


L P A 

AZJ,NE 
AQJ,LT 


.01520 

01521 

HI 57 P 

03501532. 

20100006 
71100004 

.p.... ” 

.12 58. 

1259 

17 60 


AQJjNE 

LDA 

ino . 

O . 

. .. . ..*.U X C; a- . 

01523 

01524 

17677777 
17 777777 

.7 ~t - a.-, t. r 


1261 

1262 


ANA 

ANQ 

o * 

. 01525 

01526 

01527 

0 3 7014/5 
20100005 
03301544 

p.— 

p 

1263 
i2 64 
1265 


A & J > L T 
LOA 

AZJ,LT 


....01530. 

01531 

14600000. 

01001534 

p 

. TZS'6 . 

1267 

1 7 f, a 


ENA 

UJP 

O ~ 

. 01532 . : 

01533 

16577777 

53040000 


12 6 9 
127 0 

RAFSK02 

XQQ , S 
AQA 

o 

0153 4 
01535 
0153 6 

2110 0 0 0 5 
03401544 
40100005 

p 

1271 

1272 

1273 

■ R A F 5:R 0 0 

LDQ 

AQJ,EQ 

STA 


.01537. 

01540 

. .0-154-1. 

“2¥ OOT'3'44. 

3710 0006 
-40-1-0-0-G-D-6- 

■'X. 

.1274. 

1275 
.1.2-76. 


LCA. 

LP A 

STA_ 

O * 

01542 

01543 

25100002 

00701310 

X 

1277 

1278 


LDAQ 

RTJ 

o _ 

01544 
01545 
.Q 1546 

14b7/77/ 
35000014 
01000666 

p 

p...... 

~T'2“79"”"' 

1280 

1281 

RAFSKu# 

~E"N*A~~“ 

SSA 

UJP 


RAF SEEK 


T 5 > X 3 + PS A.LOCATE TC A SPECIFIED WORD 

8 SKIP IF ICO LARGE 

RAFSK01.-...JUMP.IF OK. 

A E3 ADDRESS ERROR 

SSCP SET THE UNIT ABNORMAL 


EPP,Xl+CNBLK LOCATE TO THE END OF THE FILE 

TFL,X1+CN3LK 
- 1 
-1 

.RAFSKX---------- 

0 LOCATE TO THE START OF THE FILE 

0 


KWPFB DIVIDE 8Y WORDS PER FILE BLOCK 

24 . 

CPP, Xi+CNBLK.SET THE.NEW CURRENT POSITION 

T FL, Xi+CNBLK LOAD THE LENGTH OF THE FILE 

----DECREMENT-.IT.BY.ONE.-.. 

* +4 JUMP IF THE FILE HAS LENGTH 

CPP,Xl+CNBLK LOAD THE STATUS WORD 

"A’U'B— MASK THE ABNORMAL/UNAVAILABLE BIT 

RAFAE ADDRESS ERROR IF A/U 

RAFAE JUMP IF ADDRESS ERROR 

.RAFSK02. ..JUMP.IF.NOT.TO.THE LAST.BLOCK ... 

EPP,Xl+CNBLK LOAD THE END POSITION POINTER 

.C PP,X i+CNO LK...LOAD.T H E .N EWPOSIT 10 N—-- 

77777 MASK OFF ANY GARBAGE 
7 777 7 B 

R"AF“A“E~-—-UOMP—IF”AN ACDR£SS~£RROR~—~~~ 

8LKR,Xi+CNBLK 

. RAFSK 04.JUM P .IF.THE.FIL E .IS.EMPTY. 

RAFSK03 


-0 

" 81 rK 1 RTX-irCitB^lrK~ 
RAFSK04 
BLKR , Xl + CNBLK 

SIT 21. 

EPP,Xi+CNBLK 
_&pg,Xl+CNBLK— 
COREP,Xl+CNBLK 
REWRITE 

-rnffn 

FPSV 

CLEARX 


LEAVE THE NEW BLKR IN A 
'LOAD ~THE OLD BLKR: ~ 

JUMP IF NO BLOCK CHANGE 
SAVE THE NEW E LKR 

BIT . 21 . SE2 POST T 10 NER .READY. 

SO CLEAR IT IN THE EPP WORD 

load the Tore pointers’. 

AND REWRITE THE CURRENT BLOCK 
CLEAR ALL BITS IN THE STATUS 
EXCEPT READ-ONLY AND SAVED FILE 
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UIO 


RAF READ 


.01547. 

01550 

....fl4. . 5.54 . 

00/05064 
11177777 
."i.7..^n 1 as 7 

P 

.v. 

1284 

37777 3 1285 

..-..-.—... IpAp. 

RAFREAD 

RTJ 

ECHA 

IDA . .. . 

SAVE 

1777776 

.t a. „ x 3 + P S A. 

ENTER THE SIXTEEN BIT MASK FOR 
.THF.USF-RS.0 RF G TFR. . -.-. 

01552 

01553 

40301551 

03005000 

X 

P 

1287 

1288 


STA 

A2J,EQ 

T 6 » X 3 + PSA 

ZWCZERO 

ItIl U jl H j Ul IM.U Iw 1 Ll\ 

JUMP IF WORD COUNT IS ZERO 

01554 

01555 

01556 

1420155b 

01003212 

01004772 

P . 

P 

P 

.128 9. 

129 0 
1291 


ENI 

UJP 

UJP 

.... * + 2 j X 2 

IRCHECK 6 

IRERRORS. 

CHECK FOR ILLEGAL WRITE 

WE GOT AN ILLEGAL WRITE 

01557 

14601633 

P 

1292 
129 3 

.. &&J&L 

ENA 

£&&3kJUt3fJtJk- 

RAFR02 

’r * ************ * ****** 

ENTER THE RETURN ADDRESS 

************************************ 




1295 

1296 

* 

T 

ROUTINE 

* 

TO PERFORM INITIAL DIRTY NCRK FOR RANDOM ACCESS * 




.1297. 

1298 

1299 

* 

* 

LUbAlcb 1 tit bdt r KUrtKL 1 x r 
SEARCHING THROUGH THE MAJOR 
CORE IS OBTAINED AND THE CBP 

an x n trr iy wi bti tn 

AND MINOR ACCESS FILE 8L0CKS * 

IS READ INTO IT, IF NECESSARY * 




1300 

1301 

...-.. 1 3 fi 2 . 

* 

X- 

. . * . 

THE ROUTINE EXITS IN PROGRAM 

STATE WITH X2 = CPP * 




130 4 

* * * * * * * * X & * & # * X * * * # * * * * ¥ # # X * & * * y- v * ■ * * * ^ * ¥ ¥ * 3? ^ * * 4 * & # % * * ^ ^ ^ ^ ^ -V- * * V * * 

01560 

01561 

01562 

40 30 ±‘24*4 
21 10 0 0 04 
27 001515 

.x. 

X 

. 1305' 

1306 

1307 

..KMT A .. 

.31 M 

LDQ 

LOL 

r H)Ajtrift 

CPP,Xl+CNBLK 

A US 

ift Vt i nt Kt l UKtN HUUKt J j 

LOAD THE STATUS WORD 

CHECK FOR ABNORMAL/UNAVAILABLE 

.01563. 

01564 

......01565. 

0 310 4 766 
27001475 
-0 34114 6-73- 

p 

X 

..p. 

130 8 
1309 

.—..-..,.-434.n. 


AZJ,NE. 

LOL 

AZJ,NE.- 

I OSH ASH 

A E9 

..Z ABORT.-... 

TERMINATE THE USER IF ABNORMAL 

CHECK FOR ADDRESS ERROR 
.HAVE NO.MERCY ON -THEIR.SOULS. 

01566 

01567 

20 10 0 0 06 
37001537 

X 

1311 

1312 


LOA 

LPA 

EPP, X1+CN0LK 

8IT21 

LOAD THE EPP WORD 

LEAVE THE POSITIONER READY BIT 

C457 1 ) 
01571 

0 157 2 

- U4 04‘d4t~ 
20100007 
03000566 

p 

........*..434 3“ 

1314 

1315 


AZ J y IN E 

LDA 

AZJ,EQ 

. RAFX 01... 

TFL,Xl+CNSLK 

FINISH 

JUMP IF POSITICNfcR READY 

LOAD THE LENGTH OF THE FILE 

JUMP IF ZERO LENGTH 

.:.0157 3. 

01574 

___045-75-. 

TDTQmnnr 

40100003 

-41-0-7-0-1-36-1. 

.y. 

1316 

131? 

.-.....t-34-A 


.LDA. 

STA 

..DTI ... 

LP,X1+CNB'LK 

C 8 P, Xl+CNBLK 

...Fjx . - . -..-.—.. 

.LO AD.T HE' D IRE CT CRY.ADD RE SS.... 

PREPARE TC READ IT INTO GORE 
.p H A D. tn..T-HF.Q-I RECTORY.BLOCK.-.... 

01576 

01577 

2010 0007 
31100005 


1319 

1320 


LDA 

38 A 

TFL, Xl + CNBLK 

SLKR,X1+CN3LK 

LOAD THE LENGTH OF THE FILE 

SUBTRACT SLOCKS REMAINING 

0160 0 
01601 

.0.16.0.2. 

16477776 
40 377777 
. .1.2 J 77.76-6- 

X 

x 3 21 

1322 

.132 3. 


*"I1tATS“. 

STA 

.SHA. 

T3» X3+PSA 

..9 ....... 

LEA V E THE R E L AT IV E B L CCK NUMB £ R. 

.SHIFT. OFF THE WORD POSITION. 

01603 

016U4 

.....04-6-05-. 

53600000 
20 204000 
-0 0 7-0-1212 

.x. 

132 4 
132 5 

....... | 326. 


TAI 

LDA 

.DTI.. 

X2+CPPX 

C ORE,X2 + CPPX 
.RF'WRI-TFX.-. 

TRANSFER THE SUE DIRECTORY NUMBER 

LOAD THE SUB DIRECTORY ADDRESS 
.Rf.wcT.Tc.-T-HF01RECTORY- . SL-PCK.- 

0160 6 
016 0 7 

00701575 

20301601 

X ' 

X 

1327 

1328 


RTJ 

LDA 

FIX 

T 3,X3+PSA 

READ THE SU 8 DIRECTORY BLOCK 

0 4640 — 
01611 
01612 

47600777 
5360 0000 
20 2Q 4000 


..————j-g-g-Q— 

. 1330 

1331 


’""ANA. 

TAI 

LOA 

7 77B 

X2+CPPX 

CORE,X2+CPPX 

LOAD THE DATA BLOCK ADDRESS 

.".0T6T3. 

01614 

.... ..01615 - 

.00701605"' 

20001567 
-34-1 ri-fi.Q-.n 6 -. 

X 

X 

........ 13 32 

1333 

______ 1334 _ 


RTJ 

LDA 

..oft.n..- .— 

RERRITEX 

BIT 21 

.. f pp . Y 1 ^ C N RL K.. . 

REWRITE THE SUBDIRECTORY BLOCK 

LOAD THE POSITIONER READY BIT 
_... SFT IT.INTO--THE.EPP.WORD. 

01616 

01001621 

"p . 

1.335 

1336 


UJP 

RAFX02 

War f f- X 1 « 1 ’W I * Inmw MS I *. 

■. ”*^"--Qi-6'l“7~~ 

01620 

01621 

20100002 

03101623 

00701606 

p 

X 

,... ■ • 1 3 3 ?. 

133 £ 
1339 

•.RAF X’Jl 

RAFX02 

.luA.... 

AZJ » NE 
RTJ 

CORE P,X 1 +C N 8 LK 
RAFX03 

FIX 

L O ftd THE CO RE PCINicR 

JUMP IF IN CORE 

READ IN THE DATA BLOCK 

.~..01522. 

..0162 3. 

01001624 

.Q0 70-1 363- 

p. 

.X-— 

.T3¥F” 

1341- 

__4342 

..R..A.E-X-0-3. 

.UJP. 

..R4J._.. 

.RAFX 04. 

..RESERVE-.. 

.RESERVE.I-HE-..CURRENT.BLOCK... 

01624 

01625 

20100004 

53600000 


1343 

1344 

RAFX04 

LDA 

TAI 

., v -, , t Lt T , 

CPP,Xl+CNBLK 
X2+CPPX 

LOAD THE CURRENT POSITION 

.. 01626 

01627 

15 2 U ti Out 
01627 
53430036 

p 

13 46 
1347 

RAFX 06 

iNi. 

EQU 

TIM 

2yX2 + GPP X 
* 

LEVEL ,0 

ENTER PROGRAM STATE THE QUICK AND 

...01630. 

01631 

.... 0160 2 . 

20300546 
77634000 
... Q 1701560 

.X.. 

x_ 

. : 1348. 

1349 

..-.. 4350 _ 


. .LDA. 

ACR 

UJP , I ___ 

. 7TJK7JCT+FSK . 

_ f 4 , X 3-f PSA .. 

DIRTY.WAY. 

.RE.T u R N I N P R Q-G R A M ST A TE _____ ; 

0163 3 

..... . . ... .fZ, , ;£♦. j . „ 

20301403 

X 

1351 

1352 

RAFR02 

LOA 

tat 

SELECT,X3+PSA 

RESTORE THE CNBLK INDEX 

uloo4 

01635 

0 1636 

53 50 u 00 U 
21301552 
05500001 

X 

1 P5o 

1354 

1355 


“ TAI 

LDQ 

QSG j S 

Xl+CNBLK 

T 6 , X 3 +PS A 

1 

LOAD THE WORD COUNT 

01637 

01640 

....-.0164-1. 

01001650 
20100005 
.0 3101654 

p. 

p 

T .13 56 

1357 

.— .135 8 


UJP . 

LOA 

_AZJ « NE_ 

.RAFRO 4 . 

8 LKR, Xl + CNBLK 
__RAFRO 6 . 

JUMP IF DONE 

ARE WE IN THE LAST BLOCK 

JUMP- IF NOT- ....-.---.-.. 

01642 

01643 

n a a t, t. 

20100006 

17677777 

a rinfi n 0 o 


1359 
136 0 

...,...... ..,,,.... a . Z2A . .. 

' 

LOA 

ANA 

EPP,Xl+CNBLK 

777778 

ARE WE. AT THE END OF DATA 

U lo44 
01645 

Id Dll u u u d 
16477777 


10 ol 
1362 


IN A 
XOA,S 

2 

77777 & 
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o 


RAF WRITE 


C'PP,X1+CN3LK LG AO THE STATES WORD 

FPV JUMP IF PROTECT VIOLATION 

A U3-,-CHECK.FOR-.ABNORMAL.-.--- 

IOSMASH TERMINATE IF ABNORMAL 

CPP, Xl + CNBLK LOAD THE STATUS WORD 

“flr£8-“— .LEAVE T F.£ ACGR ESS ERROR BIT 

ZA80RT HAVE NO MERCY ON SINNERS 

SAVE._._....SAVE.THE.USERS.REGISTERS. 

*+2,X2 ENTER THE RETURN AOORESS 

SETUPF5 

CPP,Xl+CNBLK-CHECK TO SEE.-IF.THE. FILE.MUST 

X 2 8E LENGTHENED 

8LKR,Xl+CNBLK 

-TrSO-—■— -— -—---— —— — 

RAFWZIP 

KWPFB 

EPP,Xl+CNBLK ■ 

77777 6 


X 2 
2A 

F' 6 TX*3”+'PS'A’“ ---- 

RAFWZIP JUMF IF THE FILE DOES NOT NEEO 

RAE.kLZ.IP_ _1_TO.BE... LENGTHENED....... 

-o. 

EP Pj-Xl+GN 8 LK--- 

777776 


KWPF8 
*+2,X2 

OVERCHEC.. — . 

* 

-FIT 2 2- 

EPP,Xl+CNBLK 
EPP,Xl+CNBLK 

.TFL, Xl+CNBLK ' ’ 

RAFW02 

GETCORE 

~~~QYTZT~' : ..... 

COREP,Xl+CNBLK 

-.S-EL6LK. 

LP,Xl+CNBLK 
C6P, X1+CN8LK 

~’S ELS LrK-^— 

C ORE 

REWRITEX 

.G ET C O RE 

6IT23 

.COREPjXl + CNB LK 

SEL8LK 

CORE 

GETCORE 

BIT23 

.GORE P,Xl+CM B L K 

777778 

CORE---- 

CORE+i 

Q 

*“'8*LKR?X1+'C'N8LK 

TFL,Xl+CNBLK 

.FLOAT ..~ 

8IT21 

_E pp, X 1* C N £ LK.— 

EPP, Xl+CNBLK 
*+2,X2 
“PCZA'P"— 

* +2 
R AFX 

.SELECT,X3+PSA 

Xl+CNBLK 

—31X23--- 

COREP ,Xl + CNBLK 
X2+CPPX 
—-“WPP8-2—■ 
RAFW08 


LEAVE THE INCREASE IN A 

ENTER THE RETURN ADDRESS 

CHECK THE.FILE.SPACE.LIMIT . 

.LOAD.THE.ALTERED.SIT--- 

SET IT INTO THE EPP WORD 

AND STORE IT BACK 

LOAD ~rHE LENGTH OF THE FILE 

JUMP IF NCT-ZERC 

GET A FILE CORE BUFFER 

.SET.THE.ALTERED.FIT”. . ... 

IN THE CORE ACCESS WORO 

-GET A.FILE--8L-CCK-- 

STORE INTO THE LOAD POINT 

GET ANOTHER BLOCK FOR' THE. 

SECOND DIRECTORY LEVEL 

AND REWRITE THE 1 ST-LEVEL BLOCK, 

‘GET.A.BLOCK.OF.CORE... . ..... 

SET THE ALTERED BIT 

.IN.THE.CORE.ACCESS.WORD-. 

GET ANOTHER FILE BLOCK 
STORE THE BLOCK NUMBER AWAY 

"'REWRITE THE'. 2 N'D-L'EV £ t~'B L'CCKl 

GET A BLOCK OF CORE 
SET THE ALTERED SIT IN THE CORE 
.ACCESS WORD 

SET THE FORWARD AND BACKWARD 

P01N T £RS.0 F- TH E.D A T A B L 0 C K TO. 

ALL ONE BITS 

..SET-8 LK R-T 0 ZE R C ———————— 

SET TFL TO ONE 

FLOAT.THE.CURRENT.BLOCK .~ 

SET POSITIONER READY 


ENTER THE RETURN ADDRESS 
TAKECAREOF 7HEFILE DIRECTORY 
ENTER THE RETURN ADDRESS 
PERFORM INITIALIZATION 
RESTORE THE CN3LK.INDEX . 

..SET-.-.XH-E. ALTERED .BIT IN THE... 

FILE CORE BLOCK 

IS THERE ROOM IN THIS FILE CORE 
8 LOCK- 
JUMP IF NOT 
















































ASSEMBLER/0S3 VI.0 09/21/74 2229 PAGE 


29 


UIO 



RAF WRITE 


. 7 7777 3 . 

24 

.F6, X3 + PS A-.....GH6CK.THE—WORE.COUNT.-.-. 

F OUT W 05 JUMP IF NOT FINISHED 

-2,X2+CPPX ADJUST SLIGHTLY 

X2+CPPX....CURRENT POSITION INDEX TO (A) 

C PP, X1+CNQLK STORE THE CURRENT POSITION 

A9/JMP,A15/*+l ENTER MONITOR STATE 

B LKR» X1+CN3L K ARE W E AT T HE E ND O F T HE FILE 

WRITERTN JUMP IF NOT THE LAST 6LOCK 

X2+CPPX---CHECK.TO SEE.IF.THE.END.---- 

EPP,Xl+CNBLK FOSITICN SHOULD BE ADVANCED 

77777 B WITHIN THE BLOCK 

.WRITERTN — JUMPIFNOTPASTTHECURRENTEND 

E PP» X1+CN8LK UPDATE THE END POSITION 

0 SET THE U.SERXS Q REGISTER TO . 

.TO, X 3+PS A.ZERO... 

REAOFX 


A9/JMP,A15/*+l 

3LKR,X1+CN3LK ARE WE IN THE LAST BLOCK 

R AFRO 7 .“~“tltJ-WP-*TF-*N-OT~ — — -— 

SEL3LK GET A FILE BLOCK 

CORE STORE THE FORWARD POINTER 

C BP,Xl+CNBLK . LOAD THE CURRENT BLOCK ADDRESS 

T 5,X 3 + PSA SAVE JUNK FOR FUTURE REFERENCE 

Lp, X1+CN8EK-—.LOAD THE DIRECTOR Y BLOCK NUMBER 

REWRITEX REWRITE THE CURRENT BLOCK 

FIX READ IN THE MAJOR ACCESS BLOCK 

T FL, X l+CNBL'K: LOADTHETOTAL FILELENGTH. 

7778 CHECK TO SEE IF MORE MINOR 

RAFW14 ACCESS BLOCKS ARE NEEDED 

S EL 8 LK.GET.A NOTHER FIIE 'BOTCH? F OR.THE. 

24 ADDITION OF ANOTHER MINOR 

TF L-, Xi+C N BL-K.A DC E S S 840 C K..- - 

-9 STORE THE FILE BLOCK NUMBER OF 

X 2+CPPX NEW MINOR ACCESS SLOCK INTO THE 

CORE , X 2 +CPPX.'MAJOR.ACG£ SS -B L0 

BIT23 SET THE ALTERED BIT IN THE CORE 

COREP,Xl+CNBLK ACCESS WORD 


2 4.^. 

REWRITEX REWRITE THE BLOCK 

.GETGORE...-.GET.A.CORE.SUFFER.-.. 

RAFW16 

TFL, Xl+CNBL K ————t0AD HE“FILE”tENGTH 

-9 

X2+CPPX 

C0RE,X2 + CPPX ~ 1 .LOAD THE ADDRESS OFTRE LOWER 

REWRITEX 

.FIX__... —RE-AO THE BLOCK INTO CORE —- 

TFL,Xl+CNBLK LOAD THE FILE LENGTH 

X 2+CPPX LOAD THE CPPX INDEX 

"'I...—.-— —1N CREASE-THE.LENGTH.OF THE FILE 

TFL,Xl+CNBLK AMD STORE IT AWAY 

7778,X2+CPPX MASK TC THE LOWER NINE BITS 

~W ITZ3 .SET.T HE.ALT ER ED'.8 IT.I 'N.THE DO R E 

COREP,Xl+CNBLK ACCESS WORD 

. E-P-P^-X-l+CN-BL-K— --C L E A R.THE E N C.POSITION.POINTER. 

T5, X3+PSA STORE THE DATA BLOCK ADDRESS 

CORE,X2+CPPX INTO THE MINOR ACCESS BLOCK 

REWRITEX. .THE MINOR ACCESS BLOCK 

GETCORE GET A BLOCK OF CORE 

77777 8 ENTER THE NEW FORWARD POINTER 

.T6,X3+PSA...... LOAD.THE.BACKWARD.POINTER. 

CORE SAVE THEM IN THE FILE BLOCK 

. R AFR O 8 .:.....__ 
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02106 

0 210 7 

2 0 10 0 0 07 
15477776 
. 4 n i n n n n 6 


15 32 
1533 

.I.... 5 . 3.4 . 

Q 

02111 

02112 

24001767 
37 10 00 06 

X 

1535 

1536 

CD .... 

.. 0211 3 

02114 

02115 

3 5 0 0 17 o 0 
40100006 
25 10 0 0 02 

^ X....." .-.... 

15 0 7 
153 8 
153 9 


. 0 2116. 

0 2117 

. . 0 212 0 . 

. 00 701543 

20000014 
. 37 1 O I'i fl f: 4 

X 

p 

1540 

1541 

. 4 . 5 . 4.2 .. 

Q 

02121 

4010 0004 


1543 

1544 

0 . 

.0 2122. 

02123 

02124 

.20100004 

03304763 

00705064 

p 

p 

1245.. 

1546 

154? 


0 212 5 
02126 

20 10 0 0 07 
03000570 

.s.t. 

p 

p......... 

1548 

1549 

_ 4 .j 3 j 5 .fl. 

O 

02130 

0 2131 

01001560 
14477777 

p 

X ^ U 

1551 

15 52 

G 

0 2132 
02133 
02134 

4 0 Gu4 0 00 
20 002073 
35100002 

X 

15 23 

1554 

1555 


."."....02135. 

02136 

..a pi 37 . 

.40100002 

20100006 

3 5 O il 2113 

.x . 

.15 56"". 

1557 

.I.. 5..54 . 

O ~ 

02140 

02141 

37 00 0730 

4 0 10 00 06 

X 

1559 

1560 

O ... 

0 214 2 
02143 
02144 

201U 0 0 01 
00002144 
00702100 

X 

.1561. 

1562 

1563 


02145 

0 214 6 

...()?14 7 

00702065 
20 10 0 0 04 

...... 4 . 44 . ..Q-fi-nn 6- 

X 

"15 64. 

156 5 

.■i.c.fof; _ 

O . 

02150 

02151 

*TT X u U U U LJ 

37 00 1302 
03102153 

X 

p 

X y vJ vi 

156 7 
1568 

o .... 

.... 02152 

02153 

...0 2154 . 

15377774 
2410 0 0 0 5 
.34301246 

...X___ 

157 Q 
.1571 


0215 5 
02156 

30100007 
54 30 1427 
.404 0 00 07 

X 

1572 

1573 

1574 _ 

o 

0216 0 

0 2161 

— u JL. u u u u 1 — 

14202162 
01001773 

p 

X 

JL % 1 

1575 

1576 

o „ 

... q216 2 

0 216 3 

0 216 4 

"2 0 to 0 0 0 7 

40301632 

12077766 

X 

”1*577— 

1578 

1579 


0 2165 
02166 
. 02167 

"'53 60 0 000 ' 
20100005 

0 3 0 fl 2 22 6 

. p .. .. .. . 

. 158 0 

1581 

.1.582_ 

o o 

! 

02170 

02171 

. “ 0"21~7'2~~ 

02173 

0 2174 

20204000 

00702144 

00702145 

20302163 

53700000 

X 

-x 

x 

%ain> 

1583 

1584 

1585 

1586 

1587 


.. 02175 . 

02176 

_.. 02177. 

. 17300777 . 

14200001 

2 0 10 QUO 3 


158 8 . 

158 9 

.153 0_ 

0"' 

0 220 0 
02201 

05300001 
00 777777 

x 

1591 

1592 

O.L... 

0 220 2 
02203 
02204 

20304000 

14200001 

00702201 

X 

1593 

1594 

1595 


Q22Q5 

02206 

77740000 . 

20100005 


1 59 6 . 

1597 


RflFRLS 


TO A 
INA,‘ 

ST A. 

LC A 

LP A 

JS'A 

STA 

LDAQ. 

RTJ 

LOA 

LPA. 

STA 


RAFWFM 


RAFE01 


■ft AF E 0 2 


-tQ-A— 

AZJ,LT 

RTJ 

LOA 

AZJ,EQ 

ENA- 

UJP 
£NA,S 
■STA— 
LOA 
SS A 
STA 
LDA 

.SS A- 

LPA 

STA 

"tO'A— 

VFO 

RTJ 

RTJ. 

LDA 

-SWA. 

LPA 

AZJ,NE 
TNT— 
LC A 

RAO_ 

ADA 

LDI 

STA - 

ENI 

UJP 

"tO-A-- 

STA 

SHA 

TAT 

LDA 

-AZJj-EQ- 

LDA 

RTJ 

-RTJ—~ 

LDA 

TAI 

ANT. 

ENI 

LOA- 

ISG 

RTJ 

“tO'A— 

ENI 

RTJ 

VFD ~ 
LOA 


o :: 

7 

o 6 

o 


02207.15 477 776—-------159 8 - -~-INA,S 

02210 40100005 1599 STA 

G 2211 7773 0 000 1600 VFD 

O 2212 “.0 3 0 0 22 2 5 P - —-— 16 Ot-—-ArZ-dTEGt 

02213 10300777 1602 ISI 

02214 01002202 P 1603 UJP 

0 2215 .5430 215 6 .X..... 160 4 ~ LDI ~ 

02216 20100001 1605 LOA 

0 2217. 0 0 70 2171.X.....16 0 6 ___;_^__RTJ 

02220 00702172 X 1607 RTJ 

02221 20302173 X 1608 LDA 

0 2222 “*±7 4770 0 0.—... 

02223 15601000 1610 INA 


O 


RAF RELEASE AND WRITE FILE MARK 


TFC, Xl+CNBLK 

-1 

BLKR, Xl + GNBLK. 

8 IT 21 

EPP,Xl+CNBLK 

8IT2 2..... 

EPP,Xl+CNBLK 
COREP, X1+CN8LK 
REWRITE 
F PS V 

CPP,X1+CN8LK- 

CPP,X1+CN8LK 


RELEASE.IS.HA N C LED.BY.A.SEEK. 

TO ADDRESS ZERO AND THEN 

WRITING.A.FILE.HARK... 

CLEAR THE POSITIONER READY BIT 
IN THE EPP WORD 

SET THE CHANGE..EIT —.—•—— 

LOAD THE POINTER WORDS. 

AND REWRITE THECURRENT BLOCK 
CLEAR ALL THE BITS IN THE CPP 

WORDEXCEPT.FOR.FILE-PROTECT 

AND SAVED-FILE 


.CPP}X1'+CN3LK“. 

FPV 

SAVE 

T FL , X1+CN3LK 
STATUS 

*+2 --- 

R AFX 
777778 

“ C OR—~——~ 

3 IT 2 3 

COREP,X1+CN8LK 
C OREP,X1 + CNB L K 
EPP,X1+CNSLK 
8IT2 2 
N BIT 21 

EPP, X1+CN9LK 
“LPyXl+CNBLK 
A9/J HP, A1 5/* + l 
REWRITEX 

'FIX. 

CPP, Xl+CNBLK 
EPP-, X1+CN0LK 
S VS 
* +2 

~-15 X3Tpsir ___ 

8 LKR,X1 + CN3L K 

.SFbLKS, X3 + P.S.A. 

TFL,Xl+CNBLK 
RPSAPTR.X3+PSA 

.TFL, X1+CN-6LK. 

* +2> X2 
FDZAP 

T FLyXl+CNBL K. 

F 4, X3+PSA 

-9 

X2+CPPX. 

BLKR,Xl+CNBLK 

.RAFE04. 

C ORE,X2+CPPX 
REWRITEX 

CTV 

F4,X3 +PSA 
X3 

0 0 777B,X3 
1 ,X2 

.CBP,X1+CN8LK 

1 ,X3 
FREES LK 

. c 0 R .g T ^ 3 _____ 

1 ,X2 
FREE3LK 
A'127'EINT 
8 LKR,Xl+CNBLK 

.BLKR,X1+CN8LK 

A 12/DINT 
RAFE03 
7778,X3 
RAFE02 

RPSAPTR,X3+PSA 
L P,XI+CN3LK 

.REWRITEX---_. 

FIX 

F4,X3+PSA 
■7700 08 
0 100 0B 


LOA D TH E S T A TL S ~WORD...~ 

JUMP IF FILE PROTECT VIOLATION 
SAVE THE USERS REGISTERS 
LOAD iHE LENGTHOFTHEFILE' 
DONE IF LENGTH EQUALS ZERO 

-EN TER--THE—RETURN - ADDRE SS. 

INITIALIZE FOR FOLLOWING JUNK 
SET THE FORWARD POINTER TO ALL 
ONE BITS.. 

SET THE ALTERED STATUS 8 IT INTO 

THE STATUS . 

LOAD THE EPP WORD 

.SET.THE.ALTERED.BIT--- 

CLEAR THE POSITIONER READY 8 IT 



PRESETTHEMAJOR .ACCESSBLOCK ' 

JUMP INTO MONITOR STATE 
REWRITE THE CURRENT BLOCK 

READIN.THEMAJORACCESSSLOCK 

SET THE END POSITION POINTER 
EQUALTOTHECURRENTPOSITION 
LEAVE THE SAVED FILE eiT 
SKIP IF A SAVED FILE 


BIAS TO THE SCRATCH POSITION“ 
LOAD -( 8 LGCKS REMAINING) 
ADJUST.THE.FILE.SLOCK.COUNTER 


ADO TO THE TOTAL. FILE LENGTH 


RESTORE THE PSA INDEX 
S T OR E.T HE-.N EW.TFL A WAY 


ENTER THE RETURN ADDRESS 

TAKE CARE OF THE FILE DIRECTORY 

LG A O T HE L E N GTH.OF'TH E FILE 

SAVE THE RELATIVE BLOCK NUMBER 
SHIFT TO A RELATVE MINOR ACCESS 

BLOCK.NUMBER.AND SAVE.IN.CPPX. 

LOAD THE BLOCKS R EMAINING 

QUHP—IF—O-ONE-— --- -. 

LOAD MINOR ACCESS BLOCK ADDRESS 


RE'AO ’ IN~T'H E“*MTN CR.ACCE'SS’ 8 L OC K 

LOAD THE RELATIVE BLOCK NUMBER 
RELATIVE BLOCK NUMBER TO INDEX 
X3 AND' MASK OFF MAJOR' POSITION 
INITIALIZE FOR CNE FILE BLOCK 

LOAD-.MINOR.ACCESS.SLOCK.ADDRESS 

SKIP IF THE MINOR ACCESS BLOCK 
IS NEEDED, OTHERWISE, FREE IT 

tOAO"“THE.NEXT . DATA BLOCK.NUMBER 

INITIALIZE FOR CNE FILE BLOCK 
FREE THE DATA BLOCK 

PREVENT RED.LIGHT.DISTRICTS... 

LOAD THE COUNT OF BLOCKS TO BE 

RELEASED AND.COUNT IT-.DOWN.BY 1 

AND THEN STORE IT BACK 
PREVENT INTERFERENCE 

JUMF IF' NC MORE BLOCKS.TO FREE 

ADVANCE THE MINOR POSITION 
LOOP BACK 

LOAD.THE.PSA.INDEX “. 

LOAD MAJOR ACCESS BLOCK ADDRESS 


READ IN THE MAJOR ACCESS 3LGCK 
LOAD THE RELATIVE BLOCK NUMBER 
MASKTOTHEMAJORPOSITION 
INCREMENT THE MAJOR POSITION 
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0D 


0 222 4 0100 216 3 


31 

1611...UJP 


& 

0 2225 

5430 2215 

0 2 226 

X 

P 

1613 

1614 

Q . 

02226 

02227 

0 223 0 

•0070 2217. 

20100004 
0460 G 000 

.x... 

1615 
161 6 
1617 


.02231 

02232 

...02233. 

01000565 
21100007 
.. ii.ii. STU] O 0 4. 

p 

1618 

1619 

.1-6-2-0. 

O 

02234 

0 223 5 

01000565 

13077746 

p 

1621 

1622 

g.: 

0 2236 
02237 
02240 

1460 0 0 00 
40100007 
14477776 


162 3 

1624 

1625 


.02241. 

02242 

40100005 
05740000 
.-t 5377770 


162 6 
1627 

o. 

02244 

02245 

n no/, a 

3430 2154 
54302225 

-i u ‘7 nnn n "2 

X 

X 

1629 

1630 

o. 

u cc 4 b 
02247 
02250 

147013 0 0 a 
2 0 10 0 0 01 
00701313 

X 

. 1 &3*± - 

1632 

1633 


..02251. 

02252 

..02253. 

.14477 7 77. 

4 010 O 0 01 
. 0400-0 5-65 

p.-. 

.1634.. 

1635 

-—-—.1636.-.- 


RAFE03 

RAFE04 


LDI 
EGU 
RT J 
LOA 
ASE 
UJP 
LDQ 

.QSE jS 

UJP 

SHAQ 


ENA 


STA 


ENA, S 
STA 


QSG 


INI 

RAO 

LDI 


ENQ 
LOA 
RT J 
ENA,S 
STA 


UJP 


RAF RELEASE AND WRITE FILE MARK 


RAFE01 .LOOP.BACK 


RPSAPTR , X3 + PSA LOAD THE PSA INDEX 

¥■ 

R EWR IT E X - .“—RE W R I TE T HE““F I LE BL CC «— 

CPP, Xl+CNBLK LOAO THE STATUS WORD 

0 SKIF IF EFP = GOO 

REA UR IN......RETURN. 

TFL, Xl + CNBLK LOAD THE LENGTH OF THE FILE 

1—r-----SKIP IF NC DATA IS PRESENT- 

READRTN RETURN 

-25 SAVED-FILE 8IT TO BIT 14 OF Q 

0.. __.__ THE LENG TH OF THE FILE IS.ZERO 

T FL> Xl+CNBLK SO CLEAR THE TFL WORD 

-1......THERE.ARE.-1.6 LOCKS.REMAINING. 

6LKRj X1 + CN3LK BEYOND THE CURRENT BLOCK 

4 00 0 0B SKIP IF A SAVED FILE 

-3,X3+PSA..- --81 AS TO THE- SCRATCH POSITION 

SFdLKS,X3+PSA UPDATE THE FILE BLOCK COUNTER 

RPSAPTk?X3+PSA RESTORE THE PSA INDEX 

"3-——— F R E E -T H E'tSA J OR ACCESS"" BLOCK,™ 

LP.X1+CN3LK THE MINOR ACCESS BLOCK, AND THE 

FREEFILE DATA BLOCK 

7777 7 6. rH'E '’TOJCR"'''ACCE'SS.SLOCK. DOES . NOT 

LP,Xl+CNBLK EXIST ANYMORE 

READRTN ...RETURN. 
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02254 

... a.zP-5-5 . 

Q 2 2 54 

2 0 30 0 5 67 

.hk ...ah an ni . 

P 

X 

(D 

02256 

02257 

01002264 
04 60 0 0 01 

P 

d 

0 226 0 
02261 
02262 

01004673 

24001117 

37301630 

P 

X 

X 


02263 

02264 

0 226 5- 

40302262 
21302263 
?7 Llil.2 2.61 

X 

X 

X. 

O ~ 

02266 

0 226 7 

16600011 
12 40 0 0 04 


Q . 

...0 227 0.~ 

02271 
02272. 

05 5u 0 0 G O 
35002137 
01000603 

X 

P 


o 


o 

o 


PAGE 32 UIO TV CONTROL 


1639 

1640 

4 64.4 .-. 

T VCNTRL 

ECU 

LDA 

AS R. 

Q >X 3 + PSA- 

.£.. 

1642 

1643 


UJP 

ASE 

TVCNTRL3 

1 

1644 

1645 

16 46 


UJP 

LCA 

LPA 

ZABORT 

F MB 

CR, X3+PSA 

164 7 
1640 

. 4.6 4 c._.... 

I VC NTRL 3 

ST A 

LQQ 

i .nr_-_ 

C R» X 3+PSA 
CR, X3+PSA 

.p.MR.-.-.-. 

165 0 

16 51 


XO A 

SHQ 

HTTV 

4 

"1" 6‘52 

1653 

1654 


~Qs*GtE~~ 

SS A 

UJP 

0 

LP3 

ASTATUSA 



O 

O 

O 

o 

Q: 

d 1 

1 € 

o, 

o 8 


o, 



o 


LOAD THE USERS G REGISTER 

SKIP.IF.NGT.A.STATUS.REQUEST-.-.-.. 

SKIP IF A CLEAR REQUEST 

LOAD THE CLEAR MASK _ 

M A SK.THE.SPECIFIED.BITS.CUT____.**___ 

LEAVE THE.FILE.HARK.READ -3IT--..-..-.-. 9 _ 

MERGE IN THE HARDWARE TYPE O 

SEND 81T TO SIG N.OF.Q. 

SET THE LOAD POINT BIT IF SEND 

S E T THE STA TUS.AND.R E T URN ......_..,. : ....'.... . „CI 

6 

O 

0l 

iO 

Z l 

O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 


o 
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U 2273 1117 7777 3 7777 3 lb57..TVINPW ECH A 

02274 37302254 X 1658 LPA 

02275. 4030 2007.X ..... 4 659.-.-.STA. 

02276 03102315 P 1660 AZJ,NE 

02277 20302264 X 1661 LOA 

0 2300..12 00 0 0 0 4 ...“.—.1662 ~---- 

02301 03202334 P 1663 AZJ,GE 

02302 P 1664 TVINPW01 EQU 

0 2302.21302275 X. : .1665 ...LOQ 

02303 41302274 X 1666 STQ 

.02304.24000016. P .—----1667.....EGA 

02305 37302277 X 1668 LPA 

02306 35000417 X 1669 SSA 

0 2307.21302305.X .......— LOQ 

02310 40302307 X 1671 STA 

02311 27002111 X 1672 LDL 

Q 2312.12 0 77 776."..... 16 7 3 .. SHA. 

02313 34302310 X 1674 RAD 

• 0 2314—010 022 64 P.—.1675 - —.- - UJP 

1676 

02315 14700373 167? TVINPW02 ENQ 

0 2316 1 42 0 2 32 0 P ." - T 6 7 8 £ n-j 

02317 01003211 P 1679 UJP 

02320. 01004772 P 1680 UJP 

02321.20302 313 X.“ .. .. 1681 . “ LOA. 

02322 12000002 1682 SHA 

-0 232 3 03-30 2 30 2 P - ---468-3 .- -— .- AZJ,LT 

02324 14102332 P 1684 ENI 

02325 20302321 X 1685 LOA 

0 232 6. 12 00 G O 0 4. .—.... 16 86——f VTNRWQ~3 . SKA 

02327 03 202334 P ... 168 7 AZJ,6E 

02330 14205137 P 1688 TVINPWX EN I 

112331.*.0400'Z4'66^P .IPT. “ . OTP 

169 0 

,0-233 2-- 1-41.7 7 777 -X- - -.1591-TVI-NR-W-OS- EN-I- 

02333 01002352 P 1692 UJP 

1693 

02334 14677777 X .4694. - - TVB-efcAY -- 

02335 01001426 P . 1695 UJP 


I NPUT 


1777776. .. .. .. 

GUX3 + PSA MASK THE USERS G REGISTER TO 16 

F6* X3 + PSA.BI TS AND STORE- IT INTO F6 - 

TVINPW02 JUMP IF WORD C GUN T IS NON-ZERO 

C R> X 3+PS A LOAD THE CONDITION REGISTER 

4 .. SHIFT PHE REAC-ENABLE BIT TO THE 

TVDELAY SIGN AND JUMP IF DELAY NEEDED 

* 

F6,X3+PSA LOAD THE WORDCGUNT 

GUX3 + PSA SET THE USERS G REGISTER 

CRMASK...-.-.-.-.-.-..-...-.. 

CR? X3 + PSA CLEAR THE GARBAGE SITS 

BIT18 SET THE WRITE ENABLE BIT 

C RY X 3 + P s-A—— 

CR,X3+PSA STORE IT BACK 

BIT21 LOAD THE FILE MARK READY BIT 

-1... . .SHIFT.TO.FILE.MARK.PROCESSED. 

CR» X3+PSA 

,T-.VCN-TRL-3....—------.-----.:.-.—.-. 


251 MAXIMUM WORD COUNT + 1 

*+2, X2. ENTER THE RETURN.ADD RE'S S~~... — 

IRCHECK CHECK FOR ILLEGAL WRITE 

IRERR0R3 WE GOT ONE 

CR, X3+PSA LOAD THE. CON 01 TIG N .REGISTER.. 

2 FILE MARK READY BIT TC THE SIGN 

T VINPW G l-----JUMP.IF.A -.FILE.MARK 0N.THE.S CREEN 

T VINPW05 ?Xi ENTER THE RETURN ADDRESS 

C R» X 3+PSA LOAD THE CONDITION REGISTER 

*<F—~—'—— .. SHIFT READ-EN ABLE BIT TO THE SIGN 

TVDELAY JUMP IF A DELAY NEEDED 

TV3USY,X2 


T-VREADj-Xl----TELL.THE.DR-I-V-E-R.T-C-RE AD. 

TVOUTW03 INITIATE THE I/O OPERATION 


TVWATT 
I OHA IT 


SET THE TVWAIT BIT AND WATT 
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CD 
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..0 2336 .P. 

02336 14202340 P 

02337.01QJ0252.F. 

02340 14700373 

02341 03604775 P 

0234214102351P. 

02343 20301443 X 

02344 03302330 P 

0 2345.20302 325 X 

02346 12000001 

0 2347.35 30 2345-X. 

02350 01002326 P 

02351 141/7777X 

02352 P 
02352 00705100 P 

0 235 3. 2400 0 016 .P 

02354 37302347 X 

0 235 5 .04442354.X 

02356 35002306 X 

02357 40302354 X 

0 2 36 0 1420443-1—X- 

02361 21302302 X 

02362 20 302076 X 

02363.17603777. 

02364 16610000 

02365 .01077777 X. 


.4698. 

1699 

.1 7 .1 fi ... 

- TvoUTW 

EQU 

ENI 

n ip... 

1701 

170 2 


ENQ 

AQJ,GE 

170 3 

1704 

1705 


ENI. 

LDA 

AZJ,LT 

17 0 6 

170 ( 

.17 0 g 


LDA 

SHA 

SSfl . 

17 0 9 
1710 


UJP 

4 711 

1712 

1713 

' j \/0U 1 WO 2 

TVOUTWO 3 

.ENI 

EQU 

RTJ 

1714 

1715 

1716 _ 


LCA 

LPA 

Kf_ 

1717 

1718 


JL W TZm 

SS A 

31 A 

... r~ k i 

171 ¥ 
1720 
4721 


ENI 

LDQ 

LDA 

1722 . 

1723 

4724- .— 


ANA. 

VFD 

UJP. 


OUTPUT 


*+2,X2 ENTER THE RETURN 

SETUPF5.-..... 

251 ENTER MAX WORD COUNT 

ZWCMAX PREVENT WRAP AROUND 

T VOUTW0 2, XI ENTER THE RETURN ADDRESS 

S YSCM ,X3+PSA LOAD THE SYSTEM CONTROL MODE WORD 

TVINPWX JUMP IF IN SYSTEM CONTROL MODE 

CR,X3+PSA. LOAD THE CONDITION REGISTER 

1 OR THE READ AND WRITE ENA 8 LE BITS 

C R> X3 + PSA.TOGETHER AND WRIT-2 IF EITHER ONE 

TVINPW03 IS SET 

-T-VWR-I-TErXl--T Etlr-TH E""D RIV E R T O • W R IT £ —— 

* 

RZ 

CRMASK * LOAD THE MASK. 

C R» X 3+PSA CLEAR THE GARBAGE FROM THE OR 

T VWRI-TE , XI-SK IP I-F A WR142 ...— 

BIT18 ELSE SET ENABLE WRITE BIT 

C R* X3 + PSA SAVE THE NEW STATUS 

RMQONE, X2 —.~.ENTER THE I MME OTA TE RETURN 

F 6 , X3 + PSA LOAD THE WGRD COUNT 

T5, X 3+PSA LOAD THE FIRST WORD ADORESS 

0 37776...MASK TC A PAGE POSITION.. 

09/166,A4/TVPFAREA XOA 

TV IN IT--- CALL THE DRIVER----- 
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02366 
02367 
...0 237 0. 

20 00 5.137 
53700000 
.2 0 00 0 01-7 - 

P 

.p.... 

.172 7. 

1728 
.1729. 

T VNE 

.LuA.. 

TAI 

lda. 

02371 

02372 

37302357 

40302371 

X 

X 

1730 

1731 


LP A 
STA 

0 237 3 

0 237 4 
02375 

1410 51 * 7 
14600011 
14700000 

P .... ..'.. ' " 

l/o 2 

1733 

1734 


UNI 

ENA 

ENQ 

.02376. 

02377 

0 240 0 

45300603 
20 37 7777 
i 5 60 0 n ni 

.X. 

X 

.1735. 

173 6 

17 3 7 

.S ET STAT 

TXPCI 

STAG 

LDA 

TWA. 

0 2401 
02402 

44302377 

20302221 

X 

X 

173 £ 
1739 

TXEND 

SWA 

LDA 

0 240 3 
02404 
02405 

5 3 70 0 0 0 0 
04300000 
00777777 

X 

17 4 0 

17 41 
1742 


i A I 
ISE 
RTJ 

.02406 

02407 
P241 n 

20100000. 

44005150 
c 7 x n n 0 n n 

p 

1743 

1744 

1 745 


LDA 
SWA 
TT A 

....- ■" U U. ‘T JLrU-. 

02411 

02412 

4410 0 000 
54305150 

p 

1746 

1747 


SWA 

LDI 

0 2 41 J 
02414 
02415 

1 m-4 7 7 111 
00 777777 
47377777 

X 

X 

17 4 8 . 

1749 

1750 


cN A, 

RTJ 

STI 

0 2416 
02417 

.0 2420. 

.14601110. 

35001112 
_4.0-0.Q 2 417. 

.X. 

X 

.x....... 

1751 

1752 

. 4.7433 . 


ENA 
SS A 
.3T A.- 

0 2421 
02422 

1470 0 000 
20 377777 

X 

1754 

1755 

T VMRLOOP 

ENQ 

LDA 

.0 242 3. 

02424 

02425 

53 50 0 0 G O 
03202427 
20 10 0 0 00 

p 

17 56 

1757 

1758 


"TAT” 
AZ J, 
LDA 

'.02426. 

0 242 7 
....o 243 0 

.535000G0 

12077752 

03102435 

p 

. T75Y. 

176 0 

. 4 . 764 ,.. 


TAI.~ 

SNA 

AZJ, 

02431 

02432 

17100177 

24002133 

X 

1762 

1763 


ANI 

LCA 

02433 

0 2434 
02435 

37177777 

40102433 

15300001 

X 

X 

1 7 64' 

1765 

1766 


*irP*A— 
STA 
INI 

.0 243'6~ . 

0 2437 

0 244 0 

.T5 70' WOT 

05700040 
0100 2 422 

p . .'.. . 

1767' '' 
1768 
176 9 


. mr 

QSG 

...UJ-P— 

02441 

0120Q000 


177 0 

. UJP0X2 . 

UJP 


I/O CLEAN UP 


TVBOSY....LOAD THE.SUSY.FLAG . .' .". 

X3+PSA LOAD THE PSA INDEX 

CRMASKX..BITS 7C.LEAVE IN THE.CONDITION 

CR,X3+PSA REGISTER 

C R, X 3 + PSA 

"TV BUS YjXl .. ENTER THE QUEUE ADDRESS 

HTTV FIX THE USERS STATUS TO SAY TV 

0 SET THE LEFT OVER WORO COUNT 

A j X3 + PSA 
PG X3+P^A 

1 ---IN CREMENT THE USERS PROGRAM - 

PC, X3+PSA COUNTER 

F 4, X 3 + PSA ARE OTHER USERS WAITING TO DO 

X 3+PSA jy~x / o - 

0 » X3 + PS A SKIP IF NCT 

SETN FIX THEIR CORE IF SO . .. 

0 ,X 1 ...GET THE LINK TO THE NEXT PSA 

TEMP2 AND SAVE IT 

X 3 -t-p S A..._............._...._........ 

0,X1 ADVANCE TO THE NEXT USER 

T EMP2 , X3+PSA GET THE LAST USER 

NQWAIT CLEAR THE QUEUE WAIT SIT.IN THE 

IOCLEAR 

X FLAG ,X3+PSA RUN THIS USER NEXT IF W£ CAN 


SW3IT... ■ : ~ . ... 

FLAGS 

FLAGS.—----.-.....- 

0 

VMM,X3+PSA LOAD A VMM WORD FROM THE PSA 

XT...ADDRESS TO IN0£x~T“~*——— 

* + 3 JUMP IF NCT PURE CODE 

0,X1 LOAD THE PAGE ACCESS WORO 

XT.*.AD D R E S S T O IN D E X T. 

“21 LEAVE THE UPPER THREE BITS 

*+5--JUM P.IF.NO T IN.CORE._ - —. 

1773,XI MASK TO A PAGE NUMBER 

BIT23 LOAD THE MASK 

•pAGET ABL, XI CLEAR THE BIT IN* THE PAGETAOL 

P AGET A8L,XI AND STORE IT BACK 

1,X3+PSA INCREMENT TO THE NEXT VMM WORD 

T .'.INCREMENT.THE.PAGE.COUNTER. 

NPU SKIP IF DONE 

. T-VMRL OOP---:.LOOP.BACK.......-. 

0 »X2 RETURN 
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HAG TAPE INPUT AND CORE FREEZER 


T'lTZ. 

TX3USY 

_____ 

Fl» X3 +PSA 
0 s Xl + CNBLK 

0 

CPP,Xl+CNBLK 
177 7 7 78 
Q »X3 + PSA 

F 6 »-X 3 +PSA- 

8IT15 
* +2 

-MTtrrttTT--—— 

*+2,X2 

IRCHECK 

TRERROR3 : . 

FI) X 3 + PSA 

XI-- 

24 
X 2 

"T030UNDyX'3 + PSA- 
QWAIT 
QIOZ 

1 0 3 0 U ND)X 3+P SA 
0 ,X2 

F 4 , X 3 + P-S A- 

0 

QIOW A IT 
X'3+PS'A 
0 ,X2 

i,X2 .“. 

X 2 

-SAVE--—— 

F 6 )X 3 + PSA 
FRZ04 

'T5,'X3-+'P-SA— 

037770 

T377TB ~ 

-11-5 

_I_.3,-X3*PSA'- 

5 

-1 

15 

F 5j X 3+PSA 
■-"11. 

-S 

¥■ 

2 000 8 
FRZ04 


enterthereturn 

ENTER THE QUEUE ADDRESS 
SAVETHEPOINTERS 

“DUMP IF' THE TAPE IS' NOT' MO UN TED. 

CLEAR ALL THE STATUS SITS 

the .i/o allows 65k records 

MASK WITH THE USERS Q REGISTER 

■SAVE.THE.WORD-.COUNT..—.-. 

THE HARDWARE ALLOWS 32K RECORDS 

THERE IS A LIMIT CN MAGNETIC TAPE 

ENTER THE RETURN 

CHECK FOR ILLEGAL WRITE 

WE.GOT.ONE. 

LOAD RETURN AND QUEUE ADDRESS 
RETURN.TO.XI....-.-. 

Q ADDRESS TO X2 

IS THEUSER MAKING A SECOND-.. 

REQUEST 

JUMP IF A WAITING REQUEST... 

OTHER WISE SET THE QWAIT EIT 
IS ANYONE ELSE IN THIS QUEUE 

-SAVE THE POINTER— --- — — 

SKIP IF NO ONE ELSE IN THIS QUEUE 
JUMP IF SOMEONE IS 

TELL THOSE WHC FOLLOW THAT WE ARE 
HERE 

" G E T.T H E.P A G E.FILE" A D D R E S S ’ T O".. 

USE 

Toad" the.word.count.~.. 

ALL DONE IF ZERO 
LOAD THE STARTING WORD ADDRESS 
MASK TO AN INTRA-PAGE POSITION 
ADD IN TO THE WORD COUNT 

ROUND F ROPER.L V....... 

NUMBER OF PAGES TO G (15 BITS) 

-GET.THE.I/O.INSTRUCTION. 

SET SIT 0 IF A READ INSTRUCTION 
REMEMBER I/O INSTRUCTION IN Q 
MEMORY PI Ft 0 TO “A .. 

PRODUCE 16 BIT USER ADDRESS 

MAKE.INTO PAGE NUMBER . 

SHIFT INTO Q THE PAGE NUMBER 

"skip.if.n of. Fin i shed 


NOW THE Q REGISTER CONTAINS THE FOLLOWING 
7760 0000 THE PAGE NUMBER BEING FROZEN 

TOTO .00 0 0. ONE IF.READ"ZERO'TF.WRITE 

0007 6000 NUMBER OF PAGES LEFT TO FREEZE 


6 

-NPU--1—- 

X 3+P S A 

-8 

VMH,X3+PSA 
X 3 

*+3~__ 

0^X3 

- -a———-— 

-9 

FRZ03 

2 

0 

T+2 _-__ 

FRZ03 
2 4-8 
-4 
6 B 


PUT PAGE NUMBER INTO A 

-MASK-TO.- 

PSA POINTER + PAGE NUMBER 

PUT THE PAGE NUMBER BACK INTO Q 

.LOAD.THE.VMM.WORD.*. r ... : .. 

SAVE PAGE NUMBER OR PAW POINTER 

.JUMP—IF.NC-T.SYSTEM.PURE. 

GET PAGE ACCESS WORD 

GET THE PAGE NUMBER IF IN CORE 

PUT—READ/WRIfE 61T INT0 SIGN OF G 

REMOVE PAGE NUMBER BITS 

JUMP IF IMPURE PAGE IN CORE 

SKIP.IF.ROT.IK.CORE......’. r 

SKIP IF WRITE OPERATION 

W E M U S X G E T. THE F AGE I F H E R E. 

WRITE FROM PURE PAGE IF HERE 
RESTORE Q 

GET THE BANK EIT FROM PAGE NUMB» 
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0 2547 
02550 

.j'j |. 

77 66 0 0 0 0 

13000017 
cz u 7 . 

. V. 

1852 

1853 

.1 854. 


AOS 

SHAQ 

.1 i < T. 

CD 

02552 

0 2 o 5 3 

JUlCHv 

44302517 

13077754 

A . 

X 

1855 

1356 


.L» Li i.. 

SWA 

SHAQ 

Q 

0 2554 

0 255 5 
02556 

5 3 4o 0 0 36 
20302372 
77634000 

X 

18 57 

1858 

1859 


TIM 

LO A 

ACR 


0255 7 

0 256 0 
. n?5f> i 

0100 2560 
1240 0 010 

P 

1860 

1861 


UJP 

SHQ 

.up.n.- 

G . 

02562 

02563 

2 0 70 2552 
05500000 

X 

1863 

1864 


LDA , I 
QSG , S 

G 

0 2564 
02565 
02566 

"4 0 70 2 56 2 
55 00 0 0 00 
1240 0020 

■.x... 

1865 

1866 
1867 


S T A , I 
VFD 

SHQ 


.....0 256 7 . 

OQ 002524 

.0 ? O 7 n_. 

, p. 

186 8 
1869 
.18-7-0. 


VFD 

..FOU .. 

O 

02570 

02571 

17300177 
20 002432 

X 

1871 

1872 

-- --1 f'V'<L.Uw. 

ANI 

LDA 

O .... 

02572 

02573 

0 2574 

3 o 3 0 2 4 ii 4 
40302572 
5330 0 000 

X 

X 

187 3 

1874 

1875 


SSA 

STA 

TIA 


.”.....0 2575. 

02576 

..0-2577_ 

12000002 . 

77 644000 
-12 40 0 0 06... 


.T 87’6 

18 77 
-187 8. 


.SHA 

APF 

.SHQ. 

o: 

0 260 0 

15700077 


1879 

1880 


INQ 

0 . 

...*. 02601. 

0260 2 
__02603 

12 40 0 012 
54302551 
02202522 

X 

p 

1881 ~ 
1882 
1883 


SHQ . 
LOI 

IJI 


02604 

• ..0 260 5 ... 

00705072 
-0 0- 7-77777- 

p 

X 

.r8B4.~ 

1885 

1 88 6.- 

FRZQ4 

RTJ 

......-RT-J 

o 

02506 

01100000 


1887 


UJP 


O 

O 

O 

O 

q 2 

o* 


o 



o 2 


MAG TAPE INPUT AND CORE FREEZER 

GE T THE CORR£ C T 0 PE RA NO ST AT E 
15 GET A 15 8IT ADDRESS 

-R PS A P T R »X 3+PS A.LOAD THE PSA PG INTER — -. 

F5.X3+PSA SET THE CURRENT ADDRESS REGISTER 

-15-4 SAVE PAGE NUMBER, ETC. IN Q 

LEVEL, 0 —— eNTE R PR0G R AM STA T£ 

C R» X3+PSA 

..*+1..“..THE FAST.WAY. 

8 GET THE READ/WRITE 8IT 

- A 9/R O S------— - -. 

F5,X 3+PSA MAKE A PURE REFFERENCE 

0 SKIP IF WRITE OFERATICN 

F5,X3 + PS'A—" ——MAKE AN IMPURE REFFERENCE 

A 9/RIS RELOCATE TC CUR OWN MEMORY 

24-8 RESTORE Q 

A9/JMP,AT 5/FRZ OF .LOOF SACK.INTO THE MONITOR. 


1 rs v u « n i w 

PAGETABL,X3 

X3+PSA 

2 

PFW, X2 

_2-4=8~=15+-5—,. 

1008-18 


T5-5 ' ' 

RPSAPTR,X3+PS A 
FRZO1,X2 


SAVE JUST THE PAGE SITS 
LOAD THE PERMANENT CORE BIT 
SET IT INTO THE PAGE TABLE 
AND STORE IT BACK 
PAGE NUMBER TC A 

CON VER T.TO.QUARTER.PAGE.NO MB ER 

SHOVE IT INTO THE PAGE FILE 

-RESTORE.Q.AND. SHIFT -TO. RT .. END . 

INCREMENT PAGE NUMBER, 

DECREMENT NUMBER OF PAGES. 

MOVE.BACK" T0‘”H IGH END.OF Q . 

LOAD THE ADDRESS OF THE PSA 
NEXT PF NUMBER, LOOP BACK 


UNSAVE RESTORE THE USERS REGISTERS 

.CLEAR-N.-.-.-.SAY WE.ARE.NO LONGER DOING I/O 

0 ,X1 RETURN 
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u260/ - 53 60 U 0 0 J.““ ". 188 9 Til O'WATT TAI 



02610 
. 0 2 611- 

53300000 
21 20 2 4 7 3 


0) ■“ 

02612 

02613 

40202611 

41302612 

X 

X 

Q 

....". 0 251 4 

010014c7 

p 


.. 0 2615. 

0 2616 

0 2617 

.1410 2 63Q 

20301776. 
....F».3.6Q. 0 0 0 - 0 ... 

.p. 

X 

O 

02620 

02621 

20302505 

13077764 

X 

O . 

.. 0 2622 

02623 

- 14 60 0 100‘ 
13077770 
02624 

p 


“.. 0 262 4. 

0262 5 

0 2 626 

20200000 

13077771 

2 n n v 

V... 

O 

02627 

01 10 0 0 0 0 


o. 

02630 

02631 

53500000 

12000005 



.0 2632 

02633 

0 2634 

37002571 

3 520 0 007 
14277777 

X. 

x. 

o 

02635 

02636 

05100001 

14277777 

X 

o.. 

0’26"3'7 . 

02640 

02641 

14303024 
47305145 
14301427 

»p~ 

p 

p 


.0 2642. 

'nrnrrrrrr 

~T 

O . 




o ._. 





o 

o 


o 

Q, 

L ^ 

o 9 
o 8 


1890 

-1891 . 


TIA 

.inn. 

1892 

1893 


STA 

ST Q 

189 4 .~ 


. U JP 

1896 ... 

1897 

48,g a... 

TTTZ . 

MTX 

"ENT . 

LDA 

T/\ i.. 

1899 

1900 


LDA 

SHAQ 

1901 

1902 

1903 

MTXX 

ENA . 

SHAQ 
ECU.. 

190 4 

190 5 


LQA 

SHAQ 

.in a . 

190 7 


t; u n 

UJP 

1909 

1910 

HTFRINPW 

TAI 

SH A 

.TOT". 

1912 

Jgi 3 


TPA 

SS A 

ENI_ 

1914 

1915 


ISG 

ENI 

191 7 

1918 

TXI NIT 

“ ENT~~ 
ST I 

ENI 


TBXB - .DOF 


o, 

o 5 



o 


HAG TAPE INPUT AND CORE FREEZER 

X2 t ~ POINT TO THE.LAST.USER.IN THIS 

X3+PSA QUEUE POINTER TO THE CURRENT USE 

-F4,X2..-PUT.THE.CURRENT.USER.INTO.THE-.— 

F 4» X 2 SECOND POSITION IN THE QUEUE 

F4, X3+PSA 

~R-Z'W-A*TT— ' 


''"RTFRTNPR7XT . ENTER THE RETURN.ADDRESS.". 

SELECT,X3+PSA GET THE PROPER CONTROL BLOCK 

- X 2 —-ADDRESS.—.-...—-- 

T 5,X3+PSA 
-11 

FTPFAREA 

-7 


0jX - 2 load THE UNIT NUMBER 

-6 

-I-6-t-X-3-+-P~SA-- LOAD THE -WORO . CCUNT . 

0 ,X1 


XI 

5 BINARY BIT TO SIGN POSITION 

d'TT'2 3..~ * MASK OFF ANY GARBAGE. . 

T FL,X 2 SET THE DENSITY 

T READ, X2-ENTER.THE.READ.REQUEST.CODE 

l,Xi TO READ ZERO WORDS IS TO DO A 

T FWSP,X2 FORWARD SPACE 

■tl'TAQ10 ADtX'3““~* - SET THE RETURN “ FOR "AFTER THE 

MTXI,X3 OPERATION 

RZWAIT,X3 ENTER THE IMMEDIATE RETURN 

T PIN IT ~...*. INITIATE THE TAPE 170 . 
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02643 

02644 

02646 
02646 
0 264 7 
02650 
02651 

.02652'' 

02653 
02654 
02655 
02656 
0 2657 
02660 
02661 

02662. 

0 266 3 
02664 
02665 
0 2666 
0 266 7 
02670 
02671 

.02672 

02673 
0 267 4 
02675 
02676 

02677 
02700 
0 2701 
02702 
02 70 3 
02704 
02705 
02706 
02707 
02710 
0 2711 
02712 

.02713 

02714 
0 2 715 
0 2716 
02717 
0 272 Q 
0 2721 


02722 
02723 
0 2 724 
02725 
02726 
02727 
0 2 730 
02731 
02732 

-0 2 733 
02734 
0 273 5 

.0 2 736 

02737 
02740. 


14202733.P" 

14700004 

-.0 2 645 P- 

20100000 
03303045 P 
20002356 X 
37302626 X 
40 10 0 0 0 4 

47205107.P 

14202655 P 

01000252.P 

03605107 P 
14205141 P 
~l~ i r±^ , 2*6r8r±—P~ 
01002466 P 
00702405 X 

20 30 2650.X 

5360 0 000 

12 00 0005. 

21077777 X 
0540 0 000 
14 70 0-G0’0—~ 
14100003 
41105152 P 

"0'2'50'2'67I.P 

53430036 

2 0 302555.X 

77634000 
01002711 P 


5540 0 000 
20702564 
55000000" 
4 0 10 5152 
.15-10-0 0 01* 
20302700 
15600001 
4430 2704“ 
05600001 
00000156 

. Q'230'"2'67?" 

QQ 00 2713 
-2030-2616 
53600000 
00705072 
14-70 5152- 
12 40 0 Q 0 6 
14102722 
01 Q0"262'4" 


02741 
0 2742“ 


.-0 27.22.P 

53500000 
05 10 0 00 4 
14 1000 0 4 
12000005 
37 00 2 6 32 X 

35200007. 

14303031 P 

1.42X7777.X- 

01002640 P 

1-420 5141 P 

14102741 P 
14702456 X 

03504673.P 

40302503 X 
.0100 24.66 P 

14102722 P 
“0100-2616 P 


1922 . 

1923 
192 4 
192 5 
1926 
192 7 
1928 

192 9 

.1930. 

1931 
.1932 

1933 

1934 

193 5 

1936 

1937 
193i. 

1939 
.1940 

1941 

1942 

1943 

1944 

1945 
.1946" 

1947 
•19 48- 
i9 49 
1950 
1951 

1952 

1953 
T'954" 

1955 

1-9-56- 

1957 

1958 
1:5 59 


1963 

1964. 


1967 
196 8 
1969 

.rgzr 

1971 
1972- 
19 ?3 
1974 
19 75- 

1976 

1977 
1978' 

1979 

1980 . 

1981 

1982 
1-9-83- 

198 4 
1985 
198 6 

1987 

1988 . 

1989 

1990 
1991 “ 


.MTOUTW.ENT 

ENQ 

MTOUTWO 1 ECU. 

LOA 

AZJ)LT 

LP A 
ST A 

. STj .. 

ENI 

— .—-.. UJP.— 

AQJ,GE 
ENI 

UJP 

RTJ 

.~.CD’S. . 

TAX 

--SHA .— 

LDQ 

. AS G, S 

—=-ehret- 

ENX 

STQ 

*. TJD.. 

TIM 

-LOS- 

ACR 

UJP 

MTOUTW02 VFD 

LDA,I 

.'.VFD. 

ST A 

-INI- 

LDA 

INA 

-..SWA - -. 

ASG 

VFD 

"?rTQ'UTW0"3 . UD' 

VFD 

— ...LO-A- 

TAT 

RTJ 

SHQ 

ENI 

- UJp 

-M-TO.UIW0.Z.EQU. 

TAI 

ISG 

SHA 

ERA 

s - s _ ft 

ENI 

_ EMI _ 

UJP 

MTOUT-WTO-ENI 
ENI 

M.TOUTW11 ENQ 
“ ’ AQjy'GE' 

STA 

— - UJP._ 


MTOUTW12 


MAG TAPE OUTPUT 


M TOUTW10, X2 . 

MTMINREC 

____ 

0 ,XI + CNBLK 
MTZAP 
8 RP 8 

T 6» X3 + PSA 
CPP,Xl+GNBLK 

.EXIT.,.X2 

*+2,X2 

.SETUPF5 --- 

E XIT 

T X3USY j X2 
~*"+-2 
Q IO 
SETN 

T 6, X3 + PSA. 

X 2 

BLANKS 

0 

MTMINREC-1»X1 
MT8UFFERj XI 

*-i,xi. 

LEVEL, 0 

.CR,X3+RSA--- 

M TOU T W0 3 


EN T E R T HE RE T U R N A D ORE S S 
ENTER THE MINIMUM RECORD SIZE 


JUMF IF NOT MOUNTED 

LOAD THE BINARY BIT 

MASK WITH THE USERS Q REGISTER 

STORE IT INTO THE STATUS 

SAVE.THE.RETURN.ADDRESS.. 

ENTER THE RETURN ADDRESS 


JUMP IF NOT PADDING IS NEEDED 
POINT TO THE FRGPER QUEUE 

SE T-.T H E.R E T UR N " ADORES S 

GO LINK THIS REQUEST INTO THE 
SAY WE ARE DOING I/O 
GETTHEUSERSQREGISTER 


RECORD LENGTH TO X2 

BINARY BIT-.TO SIGN POSITION 

FILLER FOR BCG RECORDS 
SKIP IF BCD 


FTLLE R FOR “SI N ARY“RECORD S 


Q 


FIL L. THE BUFFER WITH FILLER . 

GET INTO PROGRAM STATE THE QUICK 

•A NO D IRT Y { A NO NOW I NFAMG US> W AY 

LOAD THE CONDITION REGISTER 
JUMP AND SET PROGRAM STATE 


A9/R0S RELOCATE TO THE USERS MEMORY 

F5,X3+PSA LOAD A WORD FROM IT 

.A 9/ RTS . .RELOCATE.WITH.THE.MONITOR'.AGAIN 

MT3UFFER,X1 STORE INTO THE BUFFER 

1, X1.IN CR EM E NT.TO.T H E.NE XT.PO S IT I ON. 

F 5,X3 + PSA LOAD THE CURRENT ADDRESS 

1 INCREMENT BY 1 

F5,X3+PSA.. -S-T-0 R E~i~T—B’A C K. 

i SKIP IF THE SAME BANK OF MEMORY 

A9/JMP,A15/FINPK04 SWITCH BANKS CF MEMORY 

MTOUTWG2»X2.~.PROCESS.ALL.THE.WORDS.".~.”. 

A9/JMP,A15/*+l . EXIT FROM PROGRAM STATE 

.S E L ECT, X 3-+PS A.—.-.LOAD.T HE- A 0 DRESS.0 F THE.C0 NT R 0 L 

X2 SLOCK AND PUT IT INTO INDEX X2 

UNSAVE RESTORE THE USERS REGISTERS 

MTBUFFER. -. ENTER THE ADDRESS OF THE BUFFER 

6 

*+2,XI - ENTER THE RETURN 

. MTX'X .... . .. GO' .SHARE . 


XI 

MTMINREC,XI SKIP IF REASONABLY LARGE 

MTMINREC,XI-.. -.- ——*..... 

5 

BIT23 MASK OFF ANY GAREAGE 

T FL , X2“ . .“.SET.THE.DENSI T Y.. : . 

MTARLOAD,X3 ENTER THE COMPLETION RETURN 

. T.WRIXE-,.X2.-.:.-.-...-.-.-.-. 

TXINIT 

-T"X-BU-S-Y-rX2..—.."ENTER.T HE™ Q “ AD C RE S*S"~.. 

MT0UTW12,XI ENTER THE RETURN 

MTLIMIT ENTER MAX RECORD SIZE 

Z ABORT ' -:- AB QRT IF THE RECORD IS TOO.LARGE 

F6»X3+PSA SAVE THE RECORD SIZE 


M TOUT WO 7,XI 
MT*— 


ENTER THE RETURN 
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HAG TAPE CONTROL 

FUNCTIONS 


U 2 7 4 3 
02744 

. .... n?745 

21002271 

14277777 

.41. 1 4 i. fi 0 0 4- 

X 

X 

1994 

199 5 

.... 2 .04.n... 

MIREWIND 

m.t FtiN -. 

LDQ 

ENI 
qt n 

LP8 

TREWIND,X2 
. r pp... V4 +CNRI K. 

.c T n R F. T H F N F W ST AT l J S. .:....... 

0) 

02746 

0 2 747 

14302760 

14602415 

P 

X 

2011 

2012 


ENI 

ENA 

MTFINISH,X3 

S W3II 

ENTER THE RETURN ADDRESS 

SAY TG SWITCH USERS 

Q 

.. 0 275 Q 

0 2 751 

0 275 2 

.3 5 00 2 42 0 

40 00 2 750 
14 603012 

x....“.*... 

X 

p 

. 2013.. 

2014 

2015 


SSA 

3 I A 

ENA 

F LAGS 

FLAGS 

TXDONE 



.~.02753. 

02754 

....... ; .. 0 275 5 

.44005146 

2110 0000 
.12 40 C 0 22 

p. 

.2016. 

2 017 

...201.6._ 

.M TEX . 

.SWA. 

LDQ 

.SHQ.. 

.MTXI... 

0,X1+CNBLK 

. . . 18 . . . 

LOAD THE UNIT NUMBER 

...u NIT.N U MB ER.TG.LEFT.6.BITS.-.......... 

G 

0 2756 
02757 

20100007 
01 00 26 42 

X 

2016 

2020 


LD A 

UJP 

T FL,Xl+CNBLK 

T PIN IT 

LOAD THE DENSITY 

INITIATE THE TAPE OPERATION 

G 

02760 

54302602 

X 

2022 

MTFINISH 

LDI 

RPSAPTR,X3+PSA 

LOAD THE PSA INDEX 


0 2 761 
02762 

......n . 

20302713 
5350 0 000 

.(14_.0.[LnJ5 

"X.. 

0 ... 

2023 

20 2 4 

.. jn .. 


LOA 

TAI 

U tp. 

SELECT,X3+PSA 
Xl+CNBLK 

.PFAflPTM..... 

LOAD ThE ADDRESS OF THE CONTROL 

BLOCK INTO THE CNBLK INDEX 

GO 01 FAN DP 

O 


0 2764 

p 

2026 

2026+001 

..... 

MTSFPFM 

EQU 

* 

... . . %3 w.&H'*tv.Ur... .. . . . 

..... .„.ri i i t, t k i r ,rr f\. . A t -.i ... ,, , , . .,,, y/ „ , ... „ . .. , _ __ .. . . .... , y/ . 

O 

0 2 764 
02765 

142/7/// 
01002777 

X " - - 

p 

2026+002 
2026+003 
2026+004 


ENI 

UJP 

T Sr P F M - 

MTOELAY 

ROUTINE TO CALL 

AND CALL DRIVER TO RETURN LATER 

02766 
_____ 0 276 7 

...IT276F' 

14277777 

0100 2777 

p 

X 

p.... 

. YWZZ+WW5 . 

2026+906 
. 2.02.6^0 07 . 

.MTSBP'FM' 

EQU 

ENI 

U IP. 

¥ 

TS8PFM,X2 
.m irfi ay. 

ROUTINE TO PROCESS THE REQUEST 

.a Kin . JUMP TN.TO n.RT UPR- TO.00 WORK.......... 

o 

, *.* ,* o 77 rj, a, *,, 

02770 

J, /,,,0 n. .O -72,(1 

p 

2026+008 

2026+009 

MTFWSP 

"WX-rv . . . 

EQU 

f M T 

* 

rcu. «* MWVtm MtmM, ** >» 

.*.. . H i t LJ'. u • U # r P . J., k ri” w.w i.V T 2 : T\.I..w w. f i VJ 1V IN" .. .. . .. 

.... ..., ^ r .rR.i>i v k^ k, r>« t.,<x.«»»«,»«».,,«*—.——-- , .— 

o 

U c ft u 
02771 

14- (i O ■£' O 0 D 

01002777 

~X — 

p 

c.0 2 6+ u 1 u 
2026+011 
2026+012 


ENI 

UJP 

TFWS P , X2 
HTDELAY 

- FUNcTICN TO CALL- 

GO START THE FUNCTION AND WAIT 


02772 

... 02773 . 

.02772' 

14277777 
01002 777 

p 

X 

p....... 

.“ 2I2'6+IT3”"‘ 

2026+014 
.... ?a?6+ni5 

RT9KSP 

EGO 

ENI 

-U.J-P- _ 

# 

TBKSP>X2 

•• . MTQPI AY,... 

PROPER FUNCTION TO CALL 

........GO... F.T.A.RT THE F UNO TTON AN0 . WATT ..-__-.-....... 

o 

02774 

n o ~7 r~ 

14277777 

X 

2026+016 

2027 

o no ft 

MTSTATUS 

. w —.— 

ENI 

— f r • M-#•; —r 

T ST A TUS,X2 


o 

02 1 f 6 

0 2776 

UlUQ 2/// 

14277777 

0 2 777, 

p.— -— 

X 

p 

. 2 0 2 8 “ 

2029 

2029+0Ql 

HTWFM 

HTDELAY 

r 

ENI 

EQU 

.s„ w , w t, , ^ , „ 4 , t 4, 

TWFH,X2 
¥ 



0'2777 
030 0 0 

.. ..Q30 01. 

00705100 
14302360 
. 14.60-3.031 

p. 

X 

p_ __ _ _ 

.20T0 . 

2031 

.... 2Q.3.2—.. 


.RTJ.*. 

ENI 

JEUA— _ 

R 2 

R MO 0 N E * X 3 

.MTAR LOAD. 

..... RETURN' FROM STATE ZERO. 

o 

03002 

01002753 

p 

2063 


UJP 

MTFX 



o 

o 


o ; 

i o 

O, 

o 8 

7 

o 6 

o 5 


o 
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MAG TAPE I/O CLEAN UP 


MEMPARTY MEMORY PARITY ERROR ON A WRITE 

TXSMASH 

FPVIOL.-.-.TAPE DOES- NOT.HAVE.A RING.-. 

TXSMASH 

DRIVFAIL TAPE IS NOT READY 

T XBUS Y , X3 + PS A.. ' “ . ..... 

CMQSET PUT THE USER INTO CONTROL MOVE 

TXBUSYjXl ENTER THE QUEUE ADDRESS 

TXEMD GOPROCESSTHEQUEUE 


TXWC SAVE THE USERS WORD COUNT 

T XBUS Y, X3+PS A GET THE PROPER FSA POINTER 

'C'LOGK - ..— FIGURE THE AMOUNT OF.TIME.THE 

TXSTART USER HAD THE TAPE DRIVE 

0 

hour -t .. . -r_ .;.”........ 

TXTQTAL,X3+PSA CHARGE HIM FOR THE TIME 

MTXI..... 

TXWC GET THE NUMBER OF WORDS THE 

77777B TAPE DRIVE TRANSFERED 


-0 AND GENERATE THE LEFTOVER WORD 

F6YX3 + P SA COUNT FOR.T HE.USE R.‘.'. 

Q»X3+PSA 

S EL EOT, X3+PSA— - — G ET T HE- PROPER GO NT R 0 L BLOC K 

X1+CN6LK POINTER 

TXWC SAVE THE STATUS IN THE CONTROL 

--CPPyX l+'CtTBIrK——-■ B L 0 CK —... - — - 

HTMT TELL THE USER HE HAS A MAGTAPE 

9 MERGE THE STATUS AND THE 

15 ... 7..HARDWARE.TYPE” AND.PUT.IT.INTO.THE 

A j X3 + PSA USERS A REGISTER 

TX3U3Y,X 1 .ENTER TH£.QUEUE.AGORESS. 

TXPCI AND GO CHECK IT FOR OTHER USERS 

-* ——-—-——-—■—-————————— ——— —————— 

Q ,Xl+CNBLK CHECK FOR TAPE MOUNTED 

MTCNTRLX JUMP IF THE TAPE IS MOUNTED 

ITT WAIT. ...MA'GNETIC TAPE MUST BE MOUNTED 

IOWAIT ENTER INTO AN I/O WAIT STATE 

* 

T6,X3 CHECK THE FUNCTION CODE FOR 

MTCNTLMX LEGALITY 

, W7 . 7 ^8——-HAS'K“T^O-t'5 BIT FUNCTION -CODE 

ZABORT 

0 SAY TO TRANSFER ZERO WRODS 

.-....;■...... 

TX8USY,X2 POINT TO THE TAPE QUEUE 

JLkZ,. X i...SET- T H E RET URN_____ 

QIO 

SELECT,X3+PSA SET UP CNBLOCK TO POINT TO THE 

-X l+GNBL'K" -.— a —CONTROL -S'LCCK—- 

T 6,X3+PSA LOAD THE USERS G REGISTER 

X2 USE AS A JUMP INDEX 

.MTCNTRL1,X2 ... .. . : .. “ .“~ 


¥ 

MTSTATUS 00 = CHECK DYNAMIC STATUS 

MTS-TATUS -0±-=- CLEAR STATUS"— - —. 

MTWFM 02 = WRITE FILE MARK 

MTREWIND 03 = RELEASE 

MTREWIND---04.=.REWIND - “ 

MTSFPFM 05 = SEARCH FORWARD PAST FILE MK 

MTSflPFM.....-.06—=.SEARCH.BACKWARD.PAST.FILE MK 

MTBKSP 07 = SPACE BACKWARD 1 RECORD 

MTFWSP 10 = SPACE FORWARD 1 RECORD 

— 'll.= -SET.DESTRUCTIVE.READ*.....— 

^-MTCNTRLl 
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USER DISK PACK I/O 


O 


O 


O 


Q, 



03077 

..nx inn..,. 

...03.077. 

2 0 10 0 0 0 0 
.03 303 0 45 

P... 

P .......,.„....... 

240 8. 

2109 

. 2 . 1 . 1 . n.. 

.1TSFSEEK. 

EQU. 

LD A 

.17.1,11. 

0 ,X1 + CNBLI< 

.M T 7 A P. 

IS THE PACK MOUNTED 

.u ATT.T F.Nj GT...-.-....- 

(D 

0 3101 
03102 

0 310 4 
03105 

2030 3Q62 
00 30 310 4 

X 

P 

t* X U 

2111 
2112 


LD A 

S J 3 

T6, X3+PSA 
* +2 

LOAD THE SEEK ADDRESS 

CD ... 

03 00 1475 
03301475 
2110 GO 07 

P .“.......... 

P 

.2113.. 

2114 

2115 


AZJ,EQ‘ 
AZJ >LT 
LOQ. 

.RAFAE 

R AFAE 

TFL,Xl+CNBLK 

DO NT ALLO W.LABEL FOOLISH NESS........... 

LOAD MAX SECTGR NUMBER 


03106 

03107 

.....03140- 

03601475 
40100003 
.11 1 Oil 1 5 44 

P 

P. 

2116 

2117 

211 ft.. 


AQJ s GE 
STA 

i iip... 

RAFAE 

CBP,Xl+CNBLK 

. R AF-S K (14.-. 

REMEMBER THE SEEK 

...... G O- FT X THF ST ATI'S.-----...-.-.-.-.-__ 

G 




2119 

2120 





O ... 


0 3111 

P 

2121 

2122 

2123 

MSFREADX 

ECU 

* 



0 3111 

0 3112 

fi 71 1 7 

11177777 

37303101 

11 7 fi(14fV7 3 

3777? 3 

X 

2124 

2125 

...p 1 2 fi. 


ECHA. 

LPA 

AZ-J, EQ 
LDQ 

LOL 

1777778 

T&,X3+PSA 

7 a an s t . 

. 7FQft-.. AN.TM-FFAi. WT..-.. 

o 

..... U' ■cXx-i. O . 

03114 

03115 

21100004 

27001674 

X 

212 7 
2128 


GPP,Xl+CNBLK 

A E8 

WAS THE LAST SEEK BAD 

o „ 

.03116 

03117 

03120 

0 310 4673 
04200074 
01003201 

p 

*.2429 

2130 

2131 


AZ J ,N E. 

IS E 

UJP 

Z ABORT— 

743,X2 

MSFWRITX 

IS THIS A READ 

IT FS A WRITE 


03i21 
03122 
_ _ 0312 3 

.14603124 

14705143 

......040 02-444.- 

p. . 

p 

p ........ 

2132 . 

2133 

.,...2434.. 


.ENA . . 

ENQ 

Mjp. 

MSFR02 . — 

MSF3USY 

_M.T-I.N-R.H0-1.-.. 

.ENTER.THE.RETURN.~..“..... 

ENTER THE QUEUE ADDRESS 

O ~ 




243.5 

2136 

. r ..,..^ f , nf > r ,^, vvr . WP . rP , nf A. .X., J-». f - ft**,- /n 

.. 



o _ 

0 312 4 

... - 0 312 4" 

14277777 

03125 

~P' * ~™~“~ 

X 

p 

~2T3"7~~ 

2138 

2139 

MSFRQ2 

H5FR04 

"’E'Q'U 

ENI 

EQU 

MSFREAB,X2 

n- 

ENTER THE 10 CODE 


.0 312 5 " 

03126 
ii 31 ? 7 

.2T3F3¥6r 

5350 0000 

_2-1_3.Q.2.A5’ a . 

TC.. 

...Y._...... 

2140 

2141 

.. pi uo . 


.LOA. 

TAI 

i no 

SEl - ECT}X3 + PSA 

Xl+CNBLK 

_ TEX4PX A.. 

LOAD.THE CONTROL.BLOCK.ADDRESS.... 

. 1 AAfl . THF . F W A................ 

O “ 

- ... LHXCi. 

0313 0 
03131 

17703777 

20100000 

A‘—. . . .. .. 

-X 

2143 

2144 


.fe w Lap. -. 

ANQ 

LD A 

3 777B 

0,Xl+CNBLK 

CLOBBER THE PAGE BITS 

LOAD THE CONNECT WORD 

o ...... 

0 313 2 
03133 
03134 

120/77o0 

12400006 

13077771 


21.45" 
2146 
. 244.7.. 


“SttAr~ 

SHQ 

SHAQ 

6 

— 6 

MERGE DEVICE NUMBER AND CORE 

.. AD.CRE.SS ___:._............. 


0 313 5 
03136 

~2010 0 C 0 3 
40005151 

p 

2148 

2149 


LOA 

STA 

C8P,Xl+CNBLK 

MSFTEMP 

LOAD THE CURRENT ADDRESS 

SAVE THE ADDRESS 


U 3137 
03140 
0 3141 
03142 
03143 
03144 


2030 3112.X 

5350 0000 
20005151 P 
“1"4*3Q"31"4'&~"P" 
0 0 77 7 7 77 X 
01001427 P 


■215 0. 

2151 

2152 
'2153 

2154 
215 5 


-4SA~ 

TAI 

LOA 

“Ctrl - 

RTJ 

UUP 


X 1 

MSFTEMP 

MSFOONEVX3 

FILE 

RZWAIT 


4-0 AO.THE LENGTH 

PUT IT INTO THE INDEX 
RESTORE THE DISK ADDRESS 
ENTER' THE INTERRUPT RETURN 
CALL THE DRIVER 



o 8 

o 6 
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03145.0100 3164.P 

03146 14700000 

-0314 7.17 67 7 777. 

03150 40005151 P 

03151 53300000 

0 3152 53 60 0 0 00 

03153 54305143 P 

03154 P 

0 315 4 .20 30 3125.X. 

03155 53500000 

03156.4110 0 00 4.— 

03157 16700014 

03160 13000030 

03161 2100 5151 P 

03162 14105143 P 

03163 _ 01002376 P 

03164 P 

0 316 4. 1.7677-77-7 - 

03165 40005151 P 

03166 53300000 

0 316 7 53 60 0 0 0 O' 

03170 54305143 P 

03171 20077777 X 

03172.05’6u0 012. 


2167 

2158 

.21-59. 

MSFOONE 
.HSFOONO 2. 

UJP 
ENQ . 

.ana. 

2160 

2161 


STA 

TIA 

2162 

2163 

2164 

MSFDON04 

TA I 
LOI 
EQU 

.2165. 

2166 

.24.ft?. 


LQA 
TA I 

.ST n. 

2168 

2169 


XOQ 

SHAQ 

~“21'7 0 

2171 

2172 


LOQ 

ENI 

UJP 

..2173. 

2174 

_2175.. 

HSFDONiO 

EQU 

. AMA. . 

2176 

2177 


n n n 

STA 

TIA 

.217 8 ~ 

2179 

2180 


PA1 

LOI 

LDA 

.”2181... 


ASG 


03173 01003176 P 2182 UJP 

0 317 4.14 67-7777 X -- 2183- ENA 

03175 00701426 X 2184 RTJ 

03176 21001671 X 2185 LDQ 

0 317 7. 01 0 0 315 4 P .....218 6....—.HOP" 

03200 01003147 P 2187 UJP 

2188 

.*.. .07201.P...■. ... HSFWRITX.EQU 

03201 14203204 P 2190 ENI 

-0-320-2 147-0-0-0 01- ....2191_ ENQ 

03203 01002645 P 2192 UJP 

219 3 

#-3e0-4 14205143 P * - '2194 - MSFWG2 . 

03205 14103207 P 2195 ENI 

03206 01002735 P 2196 UJP 

- --2" jj-g-y - 

03207 14277777 X 2198 KSFW04 ENI 

0 3210. 0100-3125 .P...-. 2199 .^..—. UJP- 


USER DISK PACK I/O 

HSFDONiO IR DISK ERROR 

0 SET NO BITS INTO THE STATUS 

.-.7777 76.—.—.-..MASK.LEFTOVER.WORD COUNT.TO.15.- 

MSFTEMP BITS AND SAVE FCR LATER 

X 3 MOVE RETURN ADDRESS TO INDEX 2 

X 2 - ... ..- -.. ....— 

MSFdUSY,X3+PSA RESTORE THE PSA INDEX 

& 

.J ELECT,X3+P3A .LOAD THE CONTROL BLOCK ADDRESS 

X1+CN6LK 

--CPP, X1+CN3LK ---SAVE.THE.NEW.STATUS-—.---- 

HTMSF MAKE THE USERS STATUS 

24 STATUS TO A 

—ttSFT EMp— -tOAD T HE L EFT OVER WORD COUNT — 

MSFdUSY,XI ENTER THE Q ADDRESS • 

SETSTAT SET THE USERS STATUS AND CONTINUE 


. 77777Q .-. : - - SAVE. THE .LEFT OVER.WORD.COUNT-.- 

MSFTEMP 

X 3 MOVE RETURN ADDRESS TC> X2 

MSFdUSY,X 3 +PSA POINT TO THE USER 

BUSY LOAD COUNT OF CONSOLE MESSAGES 

.10 ~' “ . IF A LARGE AMOUNT OF CONSOLE. 

* + 3 CONSOLE OUTPUT IS WAITING 

CGNWAIT- ---ST O P -T-H-IS---USE-R— ...- 

IOSET 

A US SET THE A/U BIT INTO THE STATUS 

-MSFQ G N 0 - 4 -— —---— ——--——--- 

MSFQCN02 


MSFW02,X2 ENTER THE RETURN 

-1_____SM ALLEST--ALLOW A-ELE--RECORD 

MTOUTW01 GO SHARE SOKE CODE 

' MSPd U S'Y »'X2 .- ' ENTER THE Q ADDRESS. 

MSFWQ4,X1 ENTER THE RETURN 

M TOUTWll 


M SFW RITE,X2 
-M SF-R 0 4 -.-.-. 


ENTER THE IO CODE 
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IRCHECK 


CD 

(!) 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 


0 3211 

0 3212 
03213 
0 3214 
0 3215 
0 3216 
0 3217 
03220 
03221 

G 3222. 

03223 
0 322 4 
03225 
03226 
03227 
03230 
03231 
0 323 2 
03233 
03234 
03235 
03236 


.3 3 211 P 

0 3 50 4 775 P 
03212 P 

21303127.X 

17703777 

.■53-0-4-0-0-0-0. 

15603777 
13077745 
7767 0 0 00 
12 00 0017 
36303212 X 

12 0 77764 . 

0550 10 0 G 

-44-Q-Q-3-2-4-Q-.P 

17600037 
53740000 
13077766 
20302530 
54302760 
''37302674 
03302441 
- 1 - 5 - 5 - 777 - 76 - 
13000011 
15600001 


2203 
220 4. 

220 5 
220 6 
2207 
220 8 
2209 

221 U. 

2211 

2212 


2214 

2215 

2216 
2217 
.2218“ 

2215 

-22-2-0 

2221 

2222 

•2223 

2224 

JL225... 

2226 

2227 

-22-2-8- 

2229 

2230 
2231" 

2232 

2233 
~2234“ 

2235 
-2 2 3 6- 

225 7 

226 8 


-V- 

.. 


* 

.IRCHEGK.... : .-. 


* 

* 


...... m . 

¥ 


* 

J 6 _ 


LD A 
ENQ 
ENI 
UJP 


UJP 

NORMAL RETURN 


CURRENT WORD COUNT 
MAX WORD COUNT— 
*+ 2 ,X 2 
IRCHECK 

ILLEGAL WRITE EEROR 


"IRCHECK".EQU. 

AQJ,GE 

IRCHECK 6 EQU 

.......... _ x D Q.- 

ANQ 

------A-Q-A- 

INA 

SHAQ 

--—- -—oSA“~™ 

SHA 
SCA 

:.SHA 

IRCHEC0 2 QSG,S 
-UUP- 


ANA 
IAI 

-sttAtr 

LDA 

LOI 


LPA 

AZJ f LT 

-I-N-Q-t-S— 
SHAQ 
INA 


ZWCMAX 
* 

.T 5, X3 + PSA“ 

037773 

1137778 

-26 

15 

T 5j X3+PSA 
-11 . 

010008 

IRCHEGC6. 

NPU-1 
X 3 

VMM,X3 

RPSAPTR,X3+PSA 

CR,X3+PSA 

UJP0X2 

---1 --—---- 

9 

1 


JUMP IF RECORD IS TOO LARGE 


LOAD.THE.STARTING.ADDRESS. 

LEAVE THE INTRA-PAGE POSITION 

-ADD.-IN -I H £.W OR 0.GO U NT-...-. 

ROUND TO A PAGE NUMBER 
SHIFT INTO POSITION 
ME MOR Y FIEL0 EIT T0 RIGHT OF A 
SHIFT INTO POSITION 
CREATE A 16 SIT ABSOLUTE FWA 


LEAVE.THE.PAGE.NUMBER 

SKIP IF MORE FAC-ES LEFT TO CHECK 

-ILLEGAL.-WRT-TE—IS.-NOT.POSSIBLE---. 

MASK TO A LOGICAL PAGE NUMBER 
ADD IT TO THE PSA INDEX 

-Sift'VE~“THE~-p-AGE™-NUMBE*R-rr~Gr- 

LOAD THE VMM WORD FROM THE PSA 


SY S..P.C.P. A N D M EM OR Y PROTECTION 

ERROR IF MEMORY PROTECT IS SET 

-DE-G-R-i-MI-NT.THE.PAG-E.COUNTER.-.. 

LOGICAL PAGE NUMBER TO A 
ADVANCE TO THE NEXT PAGE 




0 3237 

01003223 P. 

2239 



——trO-OF"-3ACK ANO -CttrCK-'----"--.. 

03240 

03241 

0 3242 - 

' 20303221' X 
44302706 X 

1 ? 0 0 0 n 1 Q 

2241 

2 2 42 

.g.2-43. 

..TECHE€¥ 6 “TM.“ 

SWA 

_____SHA_ 

'. ~T5TSCTfP^r~ 

F5,X3+PSA 

8 

LOAD THE USERS A REGISTER 

LOAD THE CURRENT ADDRESS REGISTER 
.SHIFT.BANK.SPEC-IF-IER.TO.THE.S-I-GN_____-_—.-_-_ 

0 3243 

0 3244 

03203247 P 
77670000 

£2 4 4 
2245 

AZJ,GE 
OSA 

5+4 

JUMP IF THE SAME SANK 

■ 0 32+5 

03246 

0 3247 

lob’JOQOi 

77660000 

01200001 

--- 2246" •” ~ 

2247 

2248 

-Xt)A ' ' 

AOS 

UJP 

_ 1, X?. 

„__»,g| ;r .y....p..Q^ 7 HE OTHER BANK OF MEMORY 

AND PUT IT INTO THE OSR 

RETURN 


o 

o. 
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TTY CONTROL 


0 325 0..0 070 510 0. P .2251.TTYCNTRL.RTJ....RZ. 

03251 21303030 X 2252 LuQ Q,X3+PSA 

0 3252 0570 0004.-.- .2253. .QSG -.-—000018 — 

03253 01003274 P 2254 UJP TTYSTX 

03254 05700002 2255 QSG 000026 

03255 ” 01 00 3271 P ———g 2 56 -. ' UJP TTYCLEAR 

03256 04700002 2257 QSE 00002B 

03257 01004674 P 2258 UJP EXCA80RT 

0 3260 2400 0 016 P ..: 2259 ~ T ...L C A C RMA SK. 

03261 37303232 X 2260 LPA CR,X3+PSA 

03262 3500 2265 X--- -= — -2261 -— - -SSA.- F M3--— 

03263 40303261 X 2262 STA CR,X3+PSA 

03264 37000016 P 2263 LPA CRMASK 

"0326 5 1560 0 0 06 — ..2264 —~ ———— mA —— H TT - T y~—— 

03266 40303040 X 2265 STA A»X3+PSA 

03267 14600027 2266 ENA 0278 

0 3270 01004552 P . ' 2267.UJP .TTY WRITE 


03271 20303263 X 

03272 37000011 P 

0327340303271X 
03274 20303273 X 

03275 37000016 P 

03276.1660 0 0 06. 

03277 01004536 P 


2269 TTYCLEAR LOA CR,X3+PSA 

2270 LPA CLEARCON 

2271 —sta ——~CR, X3 + PSA 

2272 TTYSTX LDA CR,X3+PSA 

2273 LPA CRMASK 

2 2 74 .. . XOA HTTTY 

2275 UJP STA 


SKIP IF NOT STATUS 
SKIP IF NOT CLEAR 
SKIP IF WRITE FILE MARK 



CD 


3 


ASCII FOR LOGICAL..END OF MEDIA . 

a 


LOAD THE STATUS WORD 
RESET THE STATUS BITS 
STORE THE NEW STA TUS AWAY 
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0 330 0 
03301 
0 330 2 
0330 3 
03304 
0 3305 
03306 
0330 7 
0 3310 
03311 

.C3312 

03313 
0 3314 
03315 
03316 
0 3317 
0 332 0 
0 3321 
0 3 322 
03323 
03324 
03325 
03326 
03327 
03330 
0 3331 
.0"3332" 

0 3333 

.0 3334 

0 333 5 
03336 
0 3337 
0 3340 
0 3 341 
0 3342 
03343 
0 3344 
0 3345 
03346 
0 3347 
03350 
0 3351 

.03352 

0 3 353 

.0 3354. 

0 335 5 
03356 
03 35 7 
0 336 0 
0 3361 
0 3362 


—.0 3 3 0 0 .P 

14603302 P 
01003443 P 

54303231 X. 

20002665 X 

40 377777 X. 

11177777 
37303137 X 
"4 0 30 3 0'5*4~X~ 
14477776 
40302462 X 

.77 750 0 0 0 ' 

17600177 

05 60 0173. 

0560 0141 
01 003320 P 
1660 0040 — 
21303311 X 
05600140 

15oMTO. 

01003363 P 

-53-70-0-400- 

20303662 P 
54303302 X 
05 50 00 01"" 
15300005 
21377777 X 
"54 30 3326"'X 
13000006 

-41-30-3-331 .X. 

20303320 X 
03203342 P 
14600001 
40303335 X 
01003414 P 
15 60 GO 01 ” 

05600004 

4100-331-1- . P- 

2030330 7 X 
15477776 

~44343'34S . X~ 

03303361 P 
55400000 

.41703241.X 

55 00 0 000 

. 2-0-3.0-3-35-2 . X~ 

15 60 0 0 01 
44303354 X 

-OS'6 0*0 041” .. 

00000156 
14600000 
.01 00 3 3IT.P 


22 7 9 

2260. 

2281 

2282 

~22‘8‘3“ 

2284 

2285 

.228 6. 

2 2 87 
2288. 

2290 

2291 

2292 

2293 

2294 

2295 
-2-2-9- 6- 
2 29 7 

2296 
"2299* 

230 0 
2301 
~2f3TT2r 
230 3 

.23 04 

230 5 

230 6 
-230 7* 

2308 

2309 
“23X0" 
2311 
2-3-12- 
2313 

231 A 
'2315 
2 316 


-232-0- 

2321 

2322 

2323 

2324 

2325 
'2 32 6' 


-232-8- 

2329 

2330 
2 331* 

2332 

2333 
"2334"" 
2335 
-2-33-6- 
2 33 7 
2338 
233 9" 

2340 

2341 
23 42 


-V- ->,<■ ¥ -i<- -V- •¥• * 


TTYINPW 


TTYINP01 

TTYTNPIA 


TTYIRPQ2 


TTYINP03 


"EQU— 
ENA 
UJP 
TOT 
LD A 

STA- 

ECHA 

LPA 

STA—- 

ENA , S 
STA 

CTI. 

ANA 

ASG- 

ASG 

UJP 

“XOA- 

LDQ 

ASG 

ASG 

UJP 

TAT- 

LOA 

LDI 

“Q3GTS— 

INI 

LDQ 

"LOT 

SHAQ 

-SIQ-- 

LDA 

AZJ,GE 


-UUP---- 

LOA 

INA,S 

STA 

AZJ,-LT 

VFD 

: 'GTG7I“ 

VFD 

LOA-- 

INA 

SWA 

ASG”’ 

VFD 

ENA 

ujp. 


0 336 3 
0 3364 
0 3365 
03366 

.03367 

0 337 0 
0 3371 
03372 
0 337 3 
03374 
03375 


05500000 
01003420 P 
0460 0 015 
01003410 P 

14 60 0 0X2.. 

77760000 

2 5 30 3340 .X 

03003406 P 
15600001 

12 40 0 0 06. 

05600004 


2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 
2 35 3 
2354 


TTYINP04 


TTYINP05 


QSG, S 
UJP——’ 
ASE 
UJP 

ENA. 

CTO 

LD AQ. 

AZJ,EQ 
INA 

•G-NQ—— 

ASG 


O 


TTY INPUT 


SHIFT COUNTER 
SHIFT REGISTER WORD CURRENTLY EEING CONVERTED 

TO 9CD 

C URR E NT—AD O RES S R E GI STER— — ——— ~ 

USER/S A REGISTER 

REMAINING WC . 

USERAS.Q.REGISTER. 

FILLER WORD BLANKS OR ZERO 


- -r- * • 




* + 2 

TTYSHARE 

R PS A P T R, X 3 + P S A. 

BLANKS 

-F-7 x X-3+-P-S-A --- 

177777B 
T6 } X3+PSA 

F 6yX’3 + P S A-———— 

-1 

F1.X3+PSA ___ 

i 77 3 

1-738—------- 

1413 
* +2 

----- 

F1,X3+PSA 
1408 

. 0403 .*.. 

TTYINPQ4 

XT5___;_ 

CHART-0408,X3 
RPSAPTR,X3+PSA 

5,X 3 +PSA 
F 2,X3+PSA 

RPSAPTRVX3+PSA. 

6 

.-F-2-,-X-3+PSA-- 

FI, X3+PSA 
TTYINP02 

F1,X 3+PSA 
TTYINP08 
1 
4 

.TT-Y-I-NP-Ol---- 

F6,X3+PSA 

-1 

F61X3-+PSA 
TTYINP03 
A 9/ROS 

.F5j X 3 + PS A. 

A 9/RIS 

-F5,-X-3-+P-SA- 

F 5,X3+PSA 

0*00018 . 

A9/JMP,A15/FINPW04 
0 

TTY INP0T " " 


ENTER THE RETURN ADDRESS 


IN IT AI LIZ E THE- FILLER TO -BLANKS 


MASK THE WORD COUNT TO 16 BITS 

SAY BEFORE THE FIRST CHARACTER 
SAVE.SH IFT . CCU.NIE.BL_ _ 

REMOVE PARITY BIT 

"skip.IF.lower'.CASE.CHARACTER. 

M A’K E”””L C W ERG AS £ * INTO UPPER CASE 
GET SHIFT COUNT 


SKIP IF.NCI CCNTR G L C HA RAC TER. 

JUMP IF A CONTROL CHARACTER 

CONVERT TO A SCD CODE 
RESTORE THE PSA POINTER 
"SK I P~i'P~SNI F I REG ~IS IN I T IA L I Z ED’ 
CHANGE F2 TO F7 (INITIAL VALUE) 

GET THE SHIFT REGISTER 

RESTORE T HE ~PSA P CINTER. 

SHIFT IN THE CHARACTER 

-SAVE.-THE.SHIFT.REG..FOR.LATER.- 

GET THE SHIFT COUNTER 

JUMP IF NOT THE FIRST CHARACTER 


INDICATE A CHARACTER HAS ARRIVED 
ALLOW US TO GO I080UND 

SKIP IF A FULL WORD 

.GO.G ET.MORE. C H A RASTERS. 

GET USERS Q 
SUBTRACT ANOTHER WORD 

JUMP IF W CROC CUNT OVERFLOW 

STORE.THE. WORD INTO USER CORE . 

-GE-T—T-H E-.C U R R ENT.A D O RES S . 

UPDATE THE CURRENT ADDRESS 
SKIP-f-p~ N -ot-e'H’A’N§TNG-8AN’K^—— 

RESET SHIFT COUNT 


■-TTYINPG9 

0153 

TTYINP07 
0128 “ 

El,X3+PSA 
TTYINP06 
1 
6 
4 


SKIP IF A PRINTING CHAR. FOUND 
JUMF IF FIRST CHARA OTE'R—— “ — 
SKIP IF RETURN 
. TEST FOR .A.LINEFEED 

GENERATE A LINE FEED 

GET SOUNT AND SHIFT REGISTERS 1 

JUMP IF SHIFT REG. EMPTY 


SKIP IF LEFT JUSTIFIED 


o 
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TTY INPUT 


03376".01003373 P 

03377 20303347 X 

0340 0.15477776. 

03401 40303377 X 

03402 03303406 P 

0340 3 55 40 0 0 0 0 

03404 41703356 X 

0 340 5 55 00 0 00 0 

03406.21303401.X 

03407 01003603 P 


03410 04600012 

03411 01003312P 

03412 14600215 

03413 77760000 

0341420000441X 
03415 35303274 X 

03416.40303415.X 

03417 01003312 P 


03420 04600027 

0 3421.0100 3425.P 

03422 20003262 X 

03423..3430-3416.X 

0 3 424 01 00 3406 P 


03425 0460 0020 

0 3426 .010 0 3312 P 

0 3427 1460 0 00Q 

0 3430 .40-30-3304—X 

03431 20002647 X 

03432 35303423 X 

03433 40303432 X 

03434 01003312 P 


2 355 
2356 

. 235? .- 


UJP 
LDA 
XN A«» 


TTYINFO 5 
F6)X3+PSA 
.- 1 . 

235 8 
2359 


ST A' 
A/J , 

LT 

F6» X3+PSA 
T TYINP06 

.23 b U. 

2361 

2362 


VFU 

STQ, 

VFD 

I 

A9/R0S 

F5> X3+PSA 
A9/RIS 

.2363. 

2 3 64 

.“.TTY INP 0 6 

LCQ 

UJP 


F6> X3 + PSA 
TTYOUTW8 

2366 

TTYINP07 

ASE 


0 123 

2 3 67 
2368 
2365 


UJP 

ENA 

CTO 


T TYINP1A 
2158 

. 23 70. 

2371 

..? 3 72... 

.TTYTNP08 

LDA. 

SS A 
.STA. 


.BIT19. 

C R» X 3+PSA 
.C R. X 3 + PSA 

2373 


UJP 


TTYINP1A 

2375 

< TYINP09 

ASE 


0 278 

."2 376... 

2377 

. 2-378-.— 


UJP " 
LDA 
.RAO.- 


.TTYINPIO. 

F MS 

. .C R. X 3 + PSA 

2379 


UJP 


TTYINP06 

2381 

.TTYINP10 

ASE 


0 208 

.2 38'2 

2383 

..2384. 


UJP.’ 

ENA 

sta 


."TTYI'NPTA 

0 

_ F7.X3+PSA 

2385 

2386 

■ ' "238 7 . 

2388 


LDA 

SSA 

"STA"'* 

UJP 


BRP8 

CR» X3 + PSA 
—CR,X3+PSA 
TTYINPlA 


SHIFT MORE 
GET USERS Q 

INDICATEANOTHERWORD READ. 

JUMP IF W CROC CUNT OVERFLOW 
UPDATE THE USERS CORE 
GET USERS G 

RETURN TO USERS PROGRAM 


SKIP IF A LINE FEED 
IGNORE ALL 0THER CODES 

GENERATE A CR 

THIS BIT IN THE CONDITION.." .. 

REGISTER WILL CAUSE INBOUND 
TO BE.CLEARED.BY.CR-AN O.LF.ONLY 


SKIP IF CONTRCL-W 

UUMF .IF.NOT.CCNTRGL-W. 

GET THE FILE MARK BIT 

SET.II.INTO.L UN.100.STATUS. 

RETURN TO USER WITH ORIGINAL Q 


SKIP IF CONTROL-P 
. IGNORE.OTHER .CODES . 

-IN 01GATE.TRAILING.ZEROS. 

GET THE BINARY RECORD BIT 
SET IT INTO LUN 100 STATUS 

SCAN FOR ANOTHER CHARACTER 
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‘ ".. ...""..U3435.P. 2 391 TTYOUTW EGtT . 

03435 21303251 X 2391+001 LDQ 

*,- 03436 . 27 00 5135.P---2391 + 0 02---- LDL . 

'i 0 03437 03005000 P 2394 AZJ,EQ 

03440 27003414 X 2394+001 LDL 

|, . 

I ,, 0 3 442 P 2394+0 0 3 TTYOW2 EQU 

(3 03442 14603461 P 2395 ENA 

" ~. 03443 40 30 2401 X .....2 396 TTY SHARE ST A. 

03444 00702605 X 2397 RTJ 

_ -- - 03445 - 24 00 0 016 p .- - 2 39 8 - LC A. 

G 03446 37303433 X 2399 LPA 

03447 40303446 X 2400 STA 


——”0-3-45*0-20"3^0™3“2*P0 X---2-<rQT---trETA 

_ 03451 4430 3404 X 2402 SWA 

G 03452 12077760 2403 SHA 

.03453...1760 0 0 01..... 240 4 . ANA 

03454 03003460 P 2405 AZJ,EQ 

„ .-..0 3455 .77670000------240 6 ---OSA.- 

O 03456 16600001 2407 XOA 

03457 77660000 2408 AOS 

" 0 34&' 0 “0±'0-72777-'X—0’9“ —.UJP—- 

„ 03461 54303332 X 2410 TTY OUTWX LDI 

O 03462 21303306 X 2411 LDQ 

"... 03463 27 0U 343I. X . 2412...LDL. 


03464 03003470 P 2413 

-03465 . 34-30 3 447.X.-.-.2-44-4 

O 03466 14600220 2415 

03467 77760000 2416 


AZJ,EQ 

-RAD. 

ENA 

CTO 


o 

.03470 

0 3471 
03472 

“14600060 
40303430 
27005135 

X 

P 


03473 

0 347 4 
.n 3 475 

40303462 
27003463 
..66 40-0-0-0-0 - 

X 

X 

O . 

0 3476 
03477 

21703451 
55 00 0000 

X 

o. 

03500 

03501 

03502 

. Q3±gi3s93 . 

13000Q06 

40303471 

p 

X 


0350 3 
03504 
03505- 

53 70 0 0 0' 0 
0560 0011 
.0100 3611 

. p.;. 

o 

0 3506 
03507 

04600040 

01003517 

p 

o 

0 3510 ■' 

03511 

03512 

14 3 U 0 U 0 1 
16300007 
15300001 



.'.0 3513 . 

03514 

0 3 51-5- 

~T7TG"{T0'Q7~ 
14600012 
-.77 76 0 0 0 0 - 


o 

03516 

0 3517 

02703515 
1460 0000 

P 

q 2 _. 

0 352 0 

0 3 521 

0 3522 

13000006 

53700000 

20303722 

-p. . 


.0352 3. 

03524 

0 352-5. 

.7776 0 G O 0. 

1460 0 000 
13000006 


0 '~ 
10 ““ 

o 6 . 

0 352 6 

0 3527 

.0 353 0 

03531 

03532 

53700000 
20303722 
77760000 

14 60 Q 0 0 0 
13000006 

p - 


.03533 

03534 

03535 

53 70 GOOD . 

20303722 
77760 00 0 

p 

O . 

03536 

03537 

54303461 

20303473 

XX 

■7 *■■*»*■■-*■ W -J*- 

o s .■. 

0 3^4 0 
03541 
03542 

lb 4 ( r/fh 
03003561 
40303537 

p 

X 


.'.03543. 

0 3 544 

0 3545 

..2 0 30 3476 

15600001 

44303543 

.x... 

X 

O 5 "T 

0 3546 
03 54 7 

05600001 

00000156 



Gob 5 0 
03551 

4 uu 0 0 U 
21703545 

X 


O 


“'24T7“ 

2418 

2419 


“ENAr—— 

STA 

LDL 

2420 

2421 

. ZUP..P-— 


STA 

LOL 

ypn.-. 

2423 

2424 


LDQ, I 
VFO 

242 5 
242 6 
2427 


AZJ,ht 

SHAQ 

STA 

242 3 
2429 
.24-3 0. 


TAT 

ASG 

Ujp__ 

2431 

2432 


ASE 

UJP 

" 2 433 

2434 

2435 

TTYOUTH3 

ENT 

XOI 

INI 

2436 . 

243 7 
.24-3-8.- 


~wr. 

ENA 

_CT-G_- 

2439 

2440 

TTVOUTW4 

IJD 

ENA 

2 4 4 1 

2442 

2443 


IHhU 

TAI 

LDA 

.2444.. 

2445 
.2 44 6. 


CTO 

ENA 

SHAQ_ 

2447 

2448 
—2W9— 

2450 

2451 


TAI 

LDA 

CTO 

ENA 

SHAQ 

.24 52. 

2453 

2 4 54 


TAI. — . 

LDA 

CTO__ 

2455 

2456 


LDI 

LDA 

2 4 or 

2458 

2459 


IN A y S 
AZJ, EQ 
STA 

2460 . 

2461 

2462 


LDA . 

INA 

S W A.. 

2463 

2464 


ASG 

VFO 

2 465 
2466 


Vrt) 

LDQ,I 


TTY OUTPUT 


Q,X3+PSA 

.a IT 16 Ml- MASK WORD COUNT—.— 

ZWCZERO ABORT THE USER IF Q = 0 

3IT19 CHECK FOR SPECIAL OUTPUT... 

TTYOW1——AN 0 “JUMP IF SC 

TTYOUTHX ENTER THE RETURN ADDRESS 

.PC, X 3+PSA ST ORE THE RETURN ADDRESS 

CLEARN 

.CRM ASK-------------— 

CRj X3+PSA 
C R,X 3+PSA 

T5,X3+PSA-- —tOAO—THE”' usERT“A“RE§ISTER~—~— 

F5» X3 + PSA 

-15 LEAVE THE MOST SIGNIFICANT BIT OF 

W001B " THE .SIXTHEN 81T.ADDRESS. 

* +4 JUMP IF THE SAME BANK OF MEMORY 


000018 SET FOR THE OTHER BANK OF MEMORY 

RETURN— — JUHP TC THE PRCCESSING ROUTINE 

RPSAPTR»X3+PSA LOAD THE ADDRESS OF THE PSA 

T 6 , X 3 +PSA GET THE USERS Q REGISTER 

“QRper~ .-...CHECK THE.BINARY.BIT 

+ +4 

CR,X3+PSA--------- 

2 20B 220 INDICATES A BINARY RECORD 


_g.jj.g_ 

F7» X3+PSA 
8IT16M1 
T6,X3+PSA 
BRP8 

.A9/-R0S- 

F5,X3+PSA 
A9/RIS 
—TTTSTN— 
6 

F7,X3+PSA 

" 

1 IB ' 

_.T-TT-OU-m3-- 

4 0B 

TTY0UTH4 




QE FA U L T. CAR RI A G £~ CO NT RG L. 

FOR BINARY RECORDS 
GET THE WORD CCUNT 

SAVE.THE 'WORD 'COUNT. 

GET THE BINARY BIT 

GET.THiTlFll^TniicRO. FROM .THE 

. ..USERS CORE 
JUMP IFBINARY 


ASCII FOR LINE FEED 


*-i,X3 

0 

b 

X 3 

CHART.X3 
0 

-6 - 

X 3 

CHART,X3 

0 

6 

X 3 

CHART,X3 


RPSAPTR,X3+PSA 
T 6,X 3 + PSA 
— 1 

T TYOUTW5 
T 6, X3+PSA 

F 5, X3+PSA . 

1 

.F5,X3+P.SA .-__-.-________:... 

0 000 1B 

A9/JMP,A15/FINPW04 SWITCH MEMORY BANKS 

~A-9/'RrOS—————————— ■ — 

F5,X3+PSA 
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01552.55 00 0 0 0 0 .:. 2467 .VFO. 

03553 14600000 2468 TTVBIN ENA 

0 3 554 1300 0 0 06.-...-246 9.-—.— SHAQ 

03555 53700000 2470 TAI 

03556 20303722 P 2471 LDA 

0 3557..CTO 

03560 01003517 P 2973 UJP 


03561 14600215 2475 TTYOUTW5 ENA 

03562.7776 0 0 00..-..—-- 2476.—----—CTO 

03563 20303502 X 2477 LDA 

03564 14300000 2478 ENI 

0 3 5 6 5“” 0 5 60 0 0 31 .. ~~~*2'r7 9' ~— 

03566 05600021 2480 ASG 

03567 01003574 P 2481 UJP 

03570 .5 3 70 0 000.2482.TAI. 

03571 16300007 2483 XOI 

0 357 2.1530 0001.------2484-- INI . 

03573 17300007 2485 ANI 

03574 04600054 2486 TTY0UTW6 ASE 

03575.1460 0 331.*.—..-... 246? -- ENA ~ 

03576 16600323 2488 XOA 

03577 77760000 2489 CTO 

0 36 0 0' 02703577.P. ..249 0 . r .IJD . 

03601 54303536 X 2491 LDI 

03602.-. 1470 0000..—.2492.-.TTY0UTW7.ENQ.- 

03603 20300605 X 2493 TTY0UTW8 LOA 

03604 40302512 X 2494 STA 

03605 20 00 0016' P.2495' ■ .*.- 1 LDA“ 

03606 37303465 X 2496 LPA 

03607 16600006 2497 XOA 

0 361 0 ..01303604. X . 249 8 " UJP~. 



o 

o 

o 

o 

o 
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03611 
Q3612 
03613 
03614 
*0 3615 
0 3516 
03617 
0 362 0 
03621 

.03622 

03623 
0 362 4 
0 3625 
0 362 6 
0 3627 

.03630 

03631 

.0 363 2 

03633 
03634 
0 3635 
0 3636 
03637 

.03640 

0 3641 
03642 

03643 
0 3644 
03645 
03646 
03647 
03650 
03651 
0 365 2 
0 3653 
0 3654 
0 3 655 
0 3656 
0 365 7 
0366 0 
0 3661 
03662 
03663 
0 3664 
03665 
0 3666 

03667. 

0 367 0 
03671 
0 3672 
0 367 3 
03674 
03675 
0 3676 
0 3677 
0370 0 

.03701. 

03702 
0 3703 
0 3704 
03705 
03706 

03707. 

03710 

.0 3711 

03712 
0 3713 

0 37i4 
0 3 715 

.03716 

0 3 717 
0 3720 
03721 


.03611 P 

20377777 X 

.12 00 OOll. 

17600777 
53600000 
20 2 77 7 77 X 
12000003 
03203442 P 

* 1420 3624.P 

05 70 0077 

■.0100 0 252.P 

01004775 P 
00 70 5064 P 
14300006 
0 0 77 77 77 X 
54203601 X 

.40202613.X. 

15300002 

.25203551.X 

53 50 0000 
53430036 
~20-20'3b06 X 
77634000 
0100364Q P 

13 00 0 030 .“ 

53600000 

15277776. 

03643 P 
55 40 0 0 00 

*20 10 0 0 00 . 

55000000 

40300000 

. TFSOSUOT . 

5310 0000 

. 1-5 6 0-0 0 01 . 

5350 0000 
05 60 0 0 01 
"“-"OO-Ot'O'1'5 &— 
02603643 P 
54303627 X 

53600000 

* . 2130-3-4-0-6—X- 

1240 0001 
20303611 X 

.12 0O-O-0±±— 

17600777 
1560 0001 

.5T5F0Wr. 

12000014 

—5-3-040-0-3-0. 

40200001 

53200000 

.00 00 3675 

40200000 
35003176 X 

.40 577777.X 

36103677 X 

.0-3-0.0-3-7-14 .R 

15177776 
14203705 P 
01Q 77777 X 
14677777 X 
54303656 X 

.35302471.X"' 

40303707 X 
-14-60- 2-747-X- 
35002751 X 
40003712 X 

..03714.P 

00705072 P 
00705100 P 

.20000016 P 

37303635 X 

. 16.60-0-0-0.6- .. 

01004535 P 


.2496+002 

2498+003 

.2493+004 

2 49 8+ 0 0 5 
2498+006 
2498+007 
2498+008 
2498+009 

.2498 + 010 

2498+011 

.2498+012. 

2498+013 

2498+014 

2498+015 

2498+016 

2498+017 

.2 498+018 

2498+019 

. 2-4-98+0-20- 

2498+021 

2498+022 

2498+023 

2498+024 

2498+025 

.249,8 + 0 26 

2498+027 
-. 2498+0 2 8. 

2498+029 

2498+030 

. "2498 + 0'31“ 

2498+032' 

2498+033 

.2498 + 03T 

2498+035 

.2498 + 0-36 

2498+037 

2498+038 

tw+m 

2498+040 

2498+041 

. 2?98+¥¥2 

2498+043 

.2498 + 04 4- 

2498+045 

2498+046 

2498+047 

2498+048 

2498+049 

..ZWff+OW 

2498+051 

. 2-4-9-8+-G-5-2- 

2498+053 

2498+054 

2498+055 

2498+056 

2498+057 

.2498 + 058' 

2498+059 

. 24-98-+-0-6-0- 

2498+061 
2498+062 
2498+063 
2498+064 
2498+065 

.2498+066 

2498+067 
—2.4-98+ 068- 
2498+069 
2498+070 
2498+071 
2498+072 
2498+073 

.2498+074* 

2498+075 

.2498+076 

2498+077 


TTYOWi 


TTY0W3 


TTY0W4 


EQU. 

LD A 

SHA. 

ANA 
T A I 
LOA 
SHA 

A Z J, GE 

.ENT. 

QSG 

.UJP- 

UJP 
RTJ 
ENI 
RTJ 
LDI 
Si'A 
INI 

-.tBA-Q- 

TAI 

TIM 

“tro-A”— 

ACR 
UJP 
SHA Q 
TAI 

INI.-— 

EGU 

VFD 

tw- 

VFQ 
STA 
.INI 

TIA 

—I-N-A- 

TAI 

ASG 

~VFQ ' ' 

I JO 

.....LDI_ 

LOA 

TAI 

-LSU- 

SHQ 

LOA 

-SttA-- 

ANA 
IN A 
"TAT 
SHA 

—AQA- 

STA 

TIA 

~OF'0— 
STA 
SS A 

~ i srwn~ 

SCA 

.AZJ»EQ- 

INI 

ENI 

-ULR—— 
ENA 
LDI 

SSA. 

STA 

ENA - — 

SSA 

STA 

ECU... 

RTJ 

RTJ 

LD A. 

LP A 

.XOA. 

UJP 


O 


TTY OUTPUT 


7 773 
X 2 

PSA3LK,X2 

23-20 

TTYOW2 

"*+4,X2.".... 

6 2+1 

.SETUPF5.----- 

ZWCMAX 
SAVE 
6 +X3 
GETMEM 

RPSAPTR,X2 .*'■ 

F 4, X2+PSA. 

2 ,X3 

F5,X2+PSA.. 

X 1 

LEVEL,0 
CR+X2+PSA 

*+l 

24 .“. .*• 

X 2 

- 1,X 2 -- 

¥ 

09/R0S 

-- 

G9/RIS 
0 »X3 

.1 ,X3."... 

XI 

- 4 —---- 

XI 

1 

0 9/JMP,A15/FINPW 0 4 
T TYO W 3» X2 
RPSAPTR.X3 
F 4,X 3 + PSA 
X 2 

-.F-6 r X3-+PSA- 

1 

TERMINAL,X3+PSA 

“9— . 

7773 


GET TERMINAL NUMBER 

GETTERMINALSTATUS 
HIGH SPEED BIT TO POST 
IGNORETHISIF NOTHSTE R M 

SKIP IF TOO MANY CHARS TO OUTPUT 

SET- UP AODRjWC,AND.OSR. 

WORO COUNT TOC LARGE 
SAVE XI,X2, AND IS 

GET THE 64 WORD BLOCK 
: INTERRUPTS ARE HEREBY OFF*** 

SAVE.SLOCK ACC RESS. 

POINT TO WORD TWO OF BLOCK 

USER CORE ADOR TC XI 

GOTO* PRO G R A K S T ATE. * * 

...THE EASY WAY 


'INTERRUPTSBACKONAGAIN*** 
WORD COUNT TO X2 


GET* USER WORD- 

PUT IN 64 WORD BLOCK 
MOVE BLOCK POINTER. 


INCREMENT CORE LOCATION 
SKIP IF NO SANK CHANGE 
CHANGE MEMORY BANK' 

COUNT THE LOOP 
.GEI.THE.PS A POINTER. BACK¬ 
SET 64 WORD BLOCK ADDR 
WORDS.MOVED.TIMES.TWO. 


GET THE TERMINAL AGAIN 
MAKE DEVICE LA GEL 


1 ,X2 
X 2 

0 9/JMPiA±5/-*-+-l~ 
0 ,X2 
B IT 17 

.PDPSOQiXI 

PDP80Q,X1 

...T.TXO-W-4—_ 

-1, XI 

*+2,X2 

-PCPCCiirX-- 

OUTBOUND 
RPSAPTR,X3 
I030UND,X3+PSA 
I030UND,X3+PSA 

. S-WSX-T- - 

FLAGS 

FLAGS 

^— --—^— 

UNSAVE 

RZ 

CRMASK ' " 

C R,X 3 + PS A 

HTTTY. 

STA 


-MA-KE-LA-BE-L- .FOR.8--- 

PLACE IN BLOCK 

BLOCK ADDR TO A 

•TO MON STATE WITH I NTS OFF 

•INTERRUPTS ARE HEREBY OFF*** 

LINK INTO O OTFLf T L 1ST : 

.. JUMP—.I-E ON L-Y IN-E IN Q-U E-- 

MAKE TERMINAL NUMBER 


TURN-*.h-TM-OFF— 


ST F HIM 


TURN THE OSER 
OFF 

RESTORE XI,X2, AND IS 
RETURN FROM LEVEL 0 


.MAKE.-A STATUS FOR.THE. USER . 

AND RETURN THE STATUS TO USER 
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03722 
03723 
0 3724 
03725 
03725 
03727 
03730 

03731. 

0 3732 

03733. 

0 3734 
0 373 5 
0 3736 
03737 
03740 

03741. 

0 3742 

0 3 743. 

03744 
03745 
0 3746 
0 3747 
03750 

03751. 

0 3752 

03753. 

0 3754 
03755 
0 3756 
0 3 757 
03760 

03761. 

03762 

63763. 

03764 
03765 
0 3766 
03767 
03770 

'03771. 

03772 
03773 
03774 
03775 
•03776 ■ 
0 37 77 
04QQU 

. GWQT. 

04002 

.414-0-0-3 . 

04004 
04005 
04006 * 
0 400 7 
04010 

04011 . 

04012 

04013. 

.04014 
04015 
04016 
04017 
04020 
.04021. 


6 0 00 0 0 60 

52 000 261. 

3600 0 262 
35000063 

53 00 0 264 

16 00 0 065 
15000066 

14000267. 

74000270 

34 00 0 0 71.- 

54000072 

20000275 

7300004/ 

40000246 

33000245 

61 000333. 

00000053 

-04060401. 

02000102 

03000303 

-04006104 
05 00 0305 
06 00 0306 

"07666X67". 

10QQ0110 
_146 0-0 344— 
12000074 
37000056 
32 006-251— 
13000243 
57000042 

77000273. 

56000055 

-21-00-0-312 . 

22000113 
23000314 
24000115• 
2500 0116 
26 00 0 317 

"27 O'G'OTZ O'. 

30000321 

-31-006 32 2. 

41Q00041 

42000044 

43090252 

44000336 

45000300 

■46 006'276 . 

47000240 

.5-0. 06-0-25-7 . 

51000123 
62000324 
63 000125- ' 
64000126 
65 00 0 32 7 

"6'6"0B "0'3'30‘" . 

67000131 

.-76606-132 . 

71000335 

17 00 0 254 

7500 0 050 
72000134 
55000137 
76 00 6077. 


2501 

2502 

2503 
250 4 
25 0 5 
250 6 
25 0 7 
250 8 
25 0 9 
2510 

2541 

2512 

2513 
. 2514 

2515 

2516 
'2517 

2518 
.2519. 

2520 

2521 
-262-2- 

2523 

2524 
-2525 

2526 
. 2-5-27- 

2528 

2529 

-2536- 

2531 

2532 
"”2"5'3'3" 

2 53 4 
-2535 ■ 

2536 

2537 
-2 53-8- 

2539 

2540 
""264T" 

2542 
. 2543- 

2544 
2 545 

2546 

2547 

2548 
. Z5TT 


c i? h 3 
2 554 ' 

2555 

2556 
'2 557' 

2558 

-25.5.9- 

2560 

2561 
“2562“ 

2563 

2564 
"25' 65'" 


CHART 


ASCII / BCD CODE CONVERSION TABLE 

. *.CODE CONVERSION TABLE 

06/60,010/00,08/060 240/00 

.H6/ v , Ol0/QQ4,0 8/ 261. 

H6/“*, 010/000,08/ 2 62 
H6/>,010/000,08/063 

.H 6/3,010/000,08/264 

H6/7.,O10/00U,O8/ 065 
H6/1,010/000,08/ 066 

.H6/7,010/000,0 8/.267. 

H6/(,010/000,08/270 250/10 

—.H 6/) ,010/000,08/071 . 

H6/*,010/000,08/072 
H6/+,010/000,06/275 

— 0 67 7 3,01070 0”,‘08/047 .. 

H6/-,010/000,08/246 
H6/.,010/000,08/245 

“. H6//7010/00 0,0 8/333 .”. 

H6/0,010/000,08/053 260/20 

-- H-6/4,01 0 / 0 0 0,0 87 104 .-... 

H6/2,010/000,08/102 
H 6/3,010/000,08/303 
H 6/4,010/0 o-o-ye-87-4-0-4-———— 

H6/5,010/000,08/305 
H6/6,010/00 008/30 6 

56/7,010/000,08/107. 

H 6/5,010/ 000,08/ 110 270/30 

H6/9,04070 0 0 ,-087 344 -- 

H6/J,010/000,08/074 
H6/;,010/000,08/056 

... H . 6yx T oi"07 00 8-, 0 8 / 2 5*1 - —— 

H6/=,010/000,08/243 
H6/>,010/000,08/042 

H6/a, 010/0 QO,087273. 

H6/*,010/000,08/055 300/40 

H6/A-,G10/0Q 0,08/312.-. 

H6/3,010/000,08/113 
H6/C,010/000,08/314 

H6/D ^’010/ 000 y G87±15™ -. 

H6/E,010/000,08/116 
H6/F, 010/000,08/ 317 

' H'67G’,''O’I''O70 fl'0,007120.. 

H6/H,010/000,08/321 310/50 

H 6/1,0407 0 0 0,0 8/ 32 2.-.. 

H6/J,010/000,08/041 
H6/K,010/000,08/044 

H 6/L j 010/000,08/252 - -—- 

H6/H,010/000,08/336 
H6/N,010/000,08/300 

"R 67'O'’,'O'rO70 0 O",'O07"276”.~.... 

H6/P,010/000,08/240 320/60 

-H-6/.Q-,010/000,-0 8/25 7. 

H6/R,010/000,08/123 
H6/S,010/000,08/324 

56/ T, 010/ 0 0 0 700/425 ... 

H6/U,010/000,08/126 
H6/V,010/000,08/327 

R6/N , 010 / 0 0 0,007 330' .'.."... 

H6/X,010/000,08/131 330/70 

-H-6/-Y-,-0107.0 00- , 0 8/ 132-—- .. 

H6/Z,010/000,08/335 
H6/C,010/000,08/254 
H6/r* ,010/000,087-§5i}———— 

H 6/] , 010/000,08/134 
H6/+, 010/000,08/137 
56/5,010/000,08/077. 
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0 4022 7/740 UUu. 

04023 53020036 

04024.04 677777. X - 

04025 00004025 P 

04026 77533000 

0 40 27“'.20'00 0 010 .————— 

04030 15477776 

04031 44203443 X 

040 32.54303706. X ~ 

04033 77670000 

0 403 4.42024640.P. 05150.0 

04035 77674000 

04036 77660000 

04037 55400000 . 

04040 21704031 X 

04041 55000000 

04042.41005151.P ' 

04043 22024640 P 05150 0 

04044. 77660000... 

04045 22024644 P 05151 0 

04046 03104060 P 

04047 77674000 

04050 03104674 P 

04051 25377777 X 

04052.5350 UO.0.S.".*. 

04053 13 00 0030 

04054.53600 000.---- 

04055 25303266 X 

04056 77730000 

0405 7 0140 5151 P .*. — .. 


04U60.0^56011071. 

04061 01004674 P 

04062.046000-77---- 

04063 01004201 P 

04064 23024645 P 05151 1 

04065 13000052 . 

04066 14200021 

04067 07104073 P 

¥4070...QT¥U ¥556.P. 

04071 20005151 P 

04072.0160 4073.P.-. 

04073 52004631 P 

04074 5300 4624 P.— 

04075 54004121 P 

04076 55004674 P 

UW7.560 0 4176.P.". : ..... — 

0 410 0 57004674 P 

0410 t.63 00 4131 - P----- 

04102 64004114 P 

04103 65004674 P 

04104 b6UU 4154 P . 

04105 67004674 P 

04106 75004520 P 

0410 7.76 0 04543.P. 

04110 77004674 P 

04111.-.00 004565.P --- 

04112 20004674 P 

04113 30004612 P 


2 569. 

2570 

.9 q 7 1.. 

Tra PPER 

VFD 

TM A 

ACE. 

2572 

2573 


HLT 

SC I M 

. 2 5 7 4. 

2575 

2576 


LDA 

IN A, S 
SWA 

.2577. 

2 5 78 

2 5 7 9 

.EXEC. 

.LDI. 

OS A 

■.. C.J .f. j ... 

2580 

2581 


.an vTl.. 

ISA 

AOS 

—— 

2583 

2584 


VFD 

LOQ, I 
VFD 

2 585. 

2586 

9 EJ A 7 


ST Q. 

LACH 

AflC 

.. C; O / ...-.... 

2588 

2 5 8 9 


H w u 

LACH 

AZJ,N£ 

2 59 0 

2591 

2592 


AZJ,NE 
LD AQ. 

2 59 3 

2594 

. 9 .cqc . 


T A I 
SHAQ 

T AT. 

2596 

2597 


LDAQ 

VFD 

2 59 8 


UUP, I 

2600 

2601 
?6fl 2 

EXECNHLT 

ASG 

UJP 

ACE.■. 

.- -ssrtJ" U~Cr~ * 

260 3 

26 0 4 


H a L 

UJP 

LQCH 

260 5 

2 60 6 

2607 


ENI 

MTH 

2608 

2609 

2610 — 


"TOP 

LDA 

IJJP.T _ 

2611 

2612 

suaocoDE 

52 

261 3 

2614 

2614+001 


“ 

54 

55 

. 26'I¥+li0 2' 

2614+003 

, . 2616 . 


IPS . 

57 

63_ 

2517 

2618 


64 

65 

2 b 19 

2620 

2621 


66 

67 

75 

.2¥2Z 

2623 

2624 _ 


.76. 

77 

QQ _ 

2625 

2626 


20 

30 


0 0 021 ...— —- . 26 . 2 . 7 _- §t)et -—-gQ'ij- 


0 4114 

.I42CU037. 

. 2629. 

.EXAPF.ENI. 

04115 

14604000 

2630 

ENA 

04116 

77 64 4140 

.2531 

APF 

04117 

02604116 P 

2632 

I JO 

04120 

01004537 P 

2633 

UJP 


04121 

20 377777 

X 

2635 

ACI 

LDA 

0 4122 

14700120 


.2636. 


...ENQ . 

0 412 3 

0 3 604671 

P 

2637 


AQJ,G£ 

0 412 4 

20 30 40 55 

x 

263 8 


LDA 

04125 

17600377 


2639 


ANA 

04126 

77730000 

w 

2640 

___ C l . A .. 


VFD 

0 412/ 

0 0 7 rtf 77 

x. 

2 6 41 


. K T J ' 

04130 

01004537 

P 

2642 


UJP 


TRAPPED INSTRUCTION DECODE 


A 12/HINT 
LEVEL 

INTPDL.. 

■=* 

3 00 0 8 
000106 

-1 

PC,X2 

RPSAPTR,X3+PSA 
.OSRSAVE--— 


ENABLE THE INTERRUPTS. 

CHECK FOR TRAPPED INSTRUCTIONS 
INTHEMONITOR-THERESHOULDNOT 
BE ANY IF SC CALL THE CEPS 
CLEAR THE FAULT MASK BITS 
LO AD”“P + 1~ " 


LOADTHEPSAINDEX 
.SAVE.THE.OSR-- 


. A9/R0S—~ 

PC,X3+PSA 
A9/RIS 

EXEC INST . 

OSRSAVE 

EXEC INST 
EXECNHLT 

EXCABORT 

_I1,X3+PSA 

XI 

24 

X 2 .—. 

A ,X3+PSA 
A12/ D INT 
EXECTNST. 


LOAD THE TRAPPED INSTRUCTION 


RESTORE THE OSR 
LOADTHE OPCODE 

JUMP IF NOT A HALT INSTRUCTION 
JUMP IF A USER ROUTINE 


718. 

EXCABORT 

7 76- 

10 

EXECINST + 1 
18+24 
SDCL,X2 
SU80C0DE,1 

T'RADXR.... 

EXEC INST 
-S-U3D-C-00 E~,-X2- 

EXECSSIH 

A CI 

EXCABORT 

.JAA 7— 

EXCABORT 

ACR- -- 

EXAPF 

EXCABORT 

EXECAIS 

EXCA8CRT 

ASCIIIN 

ASCIIOUT. 

EXCABORT 

-DUMP - 

EXCABORT 
EXEC I NS 
“^«S0~8’0t30fr£— 


SKIP.IF.718-778. ~ 

S KIF IF 7 7XX-X XXX.INSTRUCTION 

JUMP IF 71-76 INSTRUCTION 
GET SU6-0FCQDE 
PUT MASK IN G, CP CD IN A 
LENGTH OF DECODE TABLE 
FIND THE RIGHT GR6UT 

'CHECK. F0R . A . RfiDA R . S " RE m .FOIN T 

PICK UP THE INSTRUCTION 
..JUMP—TO . THE .CORRECT.ROUTINE. 


7752 SSIM 

-fTS-3-—'—-SC IM. 

7754 ACI 

77 55 

7756 .— 

7757-7762 INCLUDES SBUP 

7763-77 634.ACR,. CRA- . 

7764 APF 

77 65 

77 66 AIS, AOS 

7767-7774 

7775 CTI 

77 7 6 . .CTO. 

7777 UCS 

7700-7717. JUMP.- - - 

7720-7727 
7730-7737 CINS 


A IS * AoS~ 


NPU-1,X2. 

4 0008 
PS+PFW,X2 
*-l. X2 
SKIP 


APFCAUSESALLOFUSERSVMM 
TO BECOME ILLEGAL TO REFERENCE 

LOA 0— T-H E .PAG E.FILE.WO RD. 

LOOP BACK 

INCREMENT THE PC AND RETURN 


TTCNT, X3 + PSA 

8 0 .~ —7. . . .~.~... 

A SORT 

A , Xo + PSA_- .1: - .- - — _ 

3773 

A12/DINT PREVENT INTERFERENCE 

CH AIN1 ——— 

SKIP 
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TRAPPED INSTRUCTION 

DECODE 


0 4131 
04132 

....[] 413 3. 

20302343 

0 3 20 4535 
.53020042. 

X 

P 


2 644 

2 64 5 

.2 6 46. 

A Cf< 

LDA 

AZJ,GE 
XHA. 

SYSCH j X3+FSA 
EXEGCRA 

.4 23. 

GET RFSAVE AREA 

GET THE USERS CONDITION REGISTER 
.GET.IS.WORD.'. 


0 413 4 

0 413 5 

40377777 

17600004 

X 


2647 

2 64 6 


ST A 

ANA 

IS?X3+PSA 

0 43 

GET RGS BIT 


Q 4136 
04137 

0 414 0 

16 60 0 0 o 0 
44303717 
53020041 

X 


264 5 

2650 

2651 


XGA 

SWA 

TM A 

6 0B 

CR, X3 + PSA 

418 

SET EIN T t PROGRAM STATE 

GET PC 


04141 

04142 

.. 0 4143. 

44304040 
12077760 
.1760 0 0 Gi. 

X 


26 52 

2653 

.2654. 


SWA 

SHA 

.ana. 

PC, X3 + PSA 
-15 

.1. 

GET BANK BIT 


0 4144 

0 4145 

16600006 

77664000 



2655 

2656 


XO A 

AIS 

6 

FORM INSTRUCTION STATE 


04146 

04147 

04150 

lb 60 0 U 01 
77 66 0 000 
53020040 



2 6 57 

2658 

2659 


Xu A 

AOS 

TMA 

.1.‘.... 

403 

FORMGPtRAND STATE 


0 415 1 
04152 

.... ..04153. 

46377777 
00705012 
.0100-3 460. 

'■"X. 

p 

.x. 


’2 6 60. 

2 661 

.2~6-6-2. 


.SCR A. 

RTJ 

... y JP. 

.LJA,X3 + PSA. 

CMEXIT 

. RPTUPN..... 

.'RESTORE THE LAST JUMP ADDRESS 

RESTORE RF AND FREE 16 WORD BL-CK 


0 415 4 

77674000 



2663 

2 6 64 

EXECAIS 

ISA 




U411?3 

04156 

04157 

U U U U 41 b ( 
20 304131 
03304163 

r 

X 

P . 


266 4+0 U 1 
2664+002 
.2664 + 003 


AZJ % h. 14 
LDA 

AZJ,LT 

EX cw Aiii 

SYSCM*X3+PSA 
EXECAIS0 

JUMP IF FROM S tSI EM ROUTINE 

SEE IF FROM CONTROL MODE 

THEN PROCESS IT FOR REQUEST 


0 416 0 
04161 

... 04162. 

.11177 7 77. 

37304124 
.Q1 0Q45 65 

X 

-P 

.37 77 7.3 

2664+0 0 4 

2664+005 

..-- 


ECHA.“ 

LP A 

...Ujp_ 

..17777 7 B. 

A »X3 + PSA 

...J-UMP-__-.-. 

.■.MASK.FOR.ADDRESS. 

OBTAIN THE USERS PROGRAM COUNTER 
.. MA-KF-.THE.PURE.STATE-.J U HP. 


0 4163 

0 4163 
20301105 

n, A,.,, n n . 

p 

X 


2664+007 

266 6 

EXEC A ISO 

EQU 

LDA 

* 

CMCODE,X3+PSA 

GIVE PENDING CONTROL MODE 


0 416 4 
04165 
04166 

.1 T MJ 0 (3 Q U ' 

41304163 

01004536 

X 

p 


dob ( 

2668 

2 66 S 


£ N 

STQ 

UJP 

CHCODE,X3+PSA 

STA 

REQUESTS TO CONTROL MODE NOW 

REMOVE THE REQUEST 


04167 
...-. Q417Q 

0 416 7 
20301115 
.2 j2 U--£L 044™. 

"P. 

X 


2669+001 

2670 

.2-6-71... 

.EXECAIS1 

"Ego .. 

LDA 

sha . 

.-. V . . — 

Tit X3 +PSA 

Q 



04171 

04172 

12077766 

15600001 



2672 

26 73 


SHA 

IN A 

-9 

1 



.U 4 ±(5 . 

04174 

.0 4175. 

oU 41 o f 
00705107 
:0100 4153 

A 

p 

X 


2 0/4 

2 6 7 5 

2 6 7 6 

XNSKIP 

5 Kft 

RTJ 

UJP _ 

1 If Xo$*Pb A 

EXIT 

RETURN 

RETURN FROM PROGRAM STATE ZERO 


...0 4176. 

0 4176 
1117 7777. 

p 

.3ZZZ7.3. 

£676 + 0 C1 
2676+GG2 
.26 76+0 03. 

3 AA 

EQU . 
-EC-liA__; 

¥ 

.. 177777B.-_ ----- 

...mask.-......—..-..-..-...- 


0 4177 
04200 

37304151 
0100 4536 

X 

p 


2676+004 
: 6 7 6 + Ci, 


LPA 

UJP 

LJA,X3+PSA 

STA 

GET USERS LAST JUMP ADDRESS 

PLACE IN USERS A REG 
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UIO 


04201 

04202 

... q4?q^ . 

14100004 
13000011 
. 1 7 60 !i 0 ii 3 


.2679. 

2680 

.....2 ft ft | . . 


.io . 

HASKXX 

ENI 

SHAQ 

.ANA. 

0 4204 
04205 

03004216 

53340000 

P 

2 682 
2683 



AZJ,Eu 
AIA 

u 420 6 

0 42 0 7 
04210 

5 3 oO 0 0 U0 
20 277777 
12000011 

X 

*.2 68 4 

2685 

2686 



..f A I.. 

LDA 

SHA 

0 4211 
04212 

. . .04213 . 

12077766 

12477766 

. 53.0.4.0.0-00. 


2687 

2688 

... o ft H 5 . 



SHA 

SHQ 

. An a. . . . 

0 4214 
04215 

17677777 

46005151 

P 

2690 

2691 



ANA 

SCHA 

0 4216 
04217 

0 4220 

'20005151 
12 00 0 0 06 
03304307 

" P. 

P 

.2 692. 

2693 

2694 


IOTA 

.LDA. 

SHA 

AZJ,LT 

04221 

04222 

.... 0 42 5 3 .- 

1760y077 
14700071 

. 0-3-50 4 2-72. 

. D .... 

2 69 5 
2696 

_ OC.G7 . . 



ANA. 

ENQ 

..a. n.,... i........ nxcl. 

04224 

04225 

U *T fc. f C. 

77674000 

03104230 

r™. 

p 

2698 

2699 



HUjU J nL 

ISA 

AZJ,N£ 

. 0 422 6" 

04227 

04230 

QU7Q5107 
77740000 
20 304051 

_p_„_ 

X 

2 7 U 0 

2701 

2702 



■~RT*J~~' 

VFD 

LDA 

.04231. 

04232 

.. 04233 . 

14777777 

03604671 

---53-60-0-045-0 . 

x.. 

p 

2703 
270 4 

_.27.n..5.. 



ENQ 

AQJ , GE 

. . tai . 

04234 

04235 

.. - Hi <9 

20277777 
37 00 27 43 

■ n x fin ti.5'0 -1 

X 

x 

p 

2705+001 
2705+002 

- —— 97 fi'X 


LDA 

LPA 

—-ft-y-i-r-p-n- 


UHCOO UOUUM-CH-Xr C.I U3TUUO 

04237 20304156 X 2705+004 LDA 

04240 03204671 P 2705+005 AZJ,GE 

0 42 41.2 0 2 0 423 4.X.. .. H7TTE . L D A “ 

04242 03304246 P 2707 AZJ,LT 

a.h.2h.3 _Sii_ 2 XLSjU 5 J_.BL_.______ 2 - 7 JUa_______i n T..._. 


.U . 

..r-.. 

.... 

....-U-fchfc- 

0 A244 

53 50 0 0 0 0 

2709 

TAI 

04245 

01 10 0 000 

271 Q 

UJP 


04246 5360 CO 00 

T ^ ¥r ^ 2IW5T5i .. p 

04250 17777777 

0 4251.2030. 423-7- . -X 

04252 03304255 P 

04253 14500143 

04254.0 3704 671 P 

04255 20377777 X 

04256 53500000 

04257. "0’2'5¥4‘2'6T” .P 

0 426 Q 01200000 

0 4261 . 2--04-0-0-0-Si— . 

04262 12077760 

04263 03404260 P 

04264 " 2010 00 01 
04265 01004256 P 


04266 14600000 2729 XREGENQ ENA 

04-26-7-.54-3 0-4032.X. 2-73-0—.—.XRE-QERR-L 0--I- 

04270 40304230 X 2731 STA 

04271 01004537 P 2732 UJP 



USER I/O INSTRUCTION DECODE 


'47X1. 

9 

.000038- 

IOTA 

X3+PSA 

-X2r ■ 

10, X2 
9 

-9 

-9 

77777B 
EXECINST 
EXEC IMST 
6 

INDCHECK 
7 78 
718 

.I-GZIP- 


INITIALIZE FOR.LOOP.PREVENTION 

INDEX BITS TO RIGHT END OF A 

LEAVE THE.INDEX.BITS. 

JUMP IF NO INDEXING 


PERFCRN INDEXING 

PERF0RM SIGN E X TE NSIQNS 


ADDINDEXTOADDRESS 
MASK TO FIFTEEN BITS 
STORE ADDRESS AND ZERO INDEX BITS 


JUMP IF INDIRECTING 

MA S K "TO.T HE O F E RA T ION.CO DE 


*+3 

EXIT. 

A12/EINT 
11,X 3+PSA 
DLENGTH 
ABORT 
X 2.:.- 


DECODE,X2 GET THE BITS TO DECODE IT 

BIT22 CHECK FOR CCNTRCL MODE REQUIRED 

—+'+3“---—-—— J U M P—IF F C R A N Y B 0‘D‘Y —— — 

S YSC M,X 3 + PSA GET CONTROL MCDE BIT 

ABORT JUMP IF NOT IN CONTROL MODE 

“.DECODE,X 2 . 

IOLIST 

.-.EXECINST ,X2---------.----—.-.-. 

XI 

0 ,Xi 


X 2 

EXECINST.*. : . 

77777B 

SYSCM,X3+PSA. 

IOLISTOl 

Q Q 

ABORT 

LUNLIST,X3+PSA 

Xi 

'^+2'7XT...... 


IOLIST03 
1 ,X1 

IOLISTC2 


0 

R.pSAP-TR-»-X3 + P-SA-POINT.-TO THE USER- - . 

I 1,X3 + PSA SAVE THE XREQ ERROR CODE 
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UIO 


0 4272 .776 74 GUO. 

04273 03004300 P 

0 4274.20304141.X 

04275 21005151 P 

04276 14104300 P 

0427701077777X 


04300 2030 4137 X 

04301 17477760 

043 0 2.40304300.X 

04303 20304255 X 

0 4304 21005151 P 

04305 17777777 

04306 01004345 P 


.04307. 13 07 7752.-.-. 

04310 77674000 

04311 13000004 

0431253600000 
04313 77654000 

04314 04604000 

04315.02 504324.P. “ 

04316 20304274 X 

.0 4317.14 777777.X.-.. 

04320 41304316 X 

04321 21005151 P 

■ 0 4322 • 14104175""X-~ 

04323 01004277 X 

04324.*20 077777.X... 

04325 34005151 P 

. 04326 .77674 0 00 ..,_ 

0 432 7 77660 000 

04330 55400000 

■04321.21405151 R-. 

04332 55000000 

04333 22024644 P . 05151 

.0¥334****4T005T5I.P. 

04335 42024644 P 05151 

.04 33 6.22,0 2 4 640.R.0 5150 

04337 77660000 

04340 01004202 P 


2734 

2735 

. .? 7 -< a . 

102 IP. 

.ISA. 

AZJ , EQ 
IRA 

2737 

2738 


.LDQ 

ENI 

27 3 9 


UJP 

27 41 
2742 

.2743. 

ZIP 

LD A 

ANA ,S 
. ST A. 

2744 

2745 


LD A 

2/4 6 
2747 

2 74 8 


LDQ 

ANQ 

UJP 

.2...7.5 n. 

. TNOTHFry 

QH A n 

2751 

2752 


ISA 

SHAQ 

, tat. 

2/53 

2 7 54 
2755 


1 A1 

PFA 

ASE 

" 2 7 56. 

2757 

. .2 75 8. 


.UD 

LOA 

._£MQ... 

2759 

2 7 60 


STQ 

LDQ 

c 761. ■ 

2762 

276 3 


ENI 

UJP 

.27*64. 

2765 

_ _2766. 

.FQL LOW 

.LDA.*. 

RAO 

ISA.. 

2767 

2768 


AOS 

VFD 

t q c\ x 

2770 

2771 


Luli) 1 

VFO 

LACH 

.27 TZ . 

2773 

. . .;..27..Z4... 


“STQ* .. 

SfiCH 

lach._ 

2775 

2776 


AOS 

UJP 



USER I/O INSTRUCTION DECODE 


ZIP 

-PC,.X 3 + P S A .-.-.-...-.....— 

EXECINST 

* +2» XI ENTER THE RETURN ADDRESS 

“S'ETU'P"— 

CR,X3+PSA LOAD THE USERS CONDITION REGISTER 

7 776 0 B CLEAR A FEW BITS 

CR» X 3+PSA - 4_4_ AND STORE IT A W AY -.- 

LUNLIST,X3+PSA GET THE ADDRESS OF THE FIRST 

ELEMENT OF THE LUNLIST 

-E-XECTN ST— 

77777B 
SERCH2 


4 

PFR,X2 

400 0 B SKIP IF NOT IN 

.FOLLOW, XI* . . .*.. . . ***** 

PC,X 3 + PSA 

.RMCHAIN-------------.... 

PC, X3+PSA 

EXECINST INITIATE EFFECTIVE ADDRESS 

“-RE-TtTRtjTXIr-~-ENT £ R "T HE - R ET UR N AD DRE S S ' " 

SETUP 

"NBITIT : ****** .*. . 

EXECINST CLEAR THE INDIRECT BIT 


A9/R0S 

E-XECINSl-- -LOAD.THE INDIRECTLY.ADDRESSED 

A9/RIS WORD FROM THE USERS MEMORY 

EXECINST SAVE THE GP CODE 

'EXECINST . ... 

EXECINST 

OSRSAVE--—..RESTORE.THE.QSR..-.—.-. 

MASKXX 


.0+1 , XI . 

FOUND 

-— 0-+1-,XI -:—- 4 .-- —-4 ---- 

XI 

SERCH1, XI 

j . . . . 

000728 SKIP IF CONTROL 

NONEXIST 

. T6,X3+PSA....LOAD THE FUNCTION CODE .* . 

7 77776 GET THE HARDWARE TYFE 

— ASTATUSA-SET—THE STATUS IF UND£FINED LUN 

100 

ZABORT JUMP IF AN ILLEGAL UNIT NUMBER 

“ -LUNUD.tOGICAt 'UNTT IS tJ-NfiePTHtfi—— 

QCONTROL 

A 12/dtnt : “****““* * * :.:. 

SETN 

_ 1+1, XI___JLO..AO_XH-E_ADDRESS OE THE BLOC K . 

Xl+CNBLK 

-15 

.HTMASK 

IODECODE 

EXIT SAVE THE JUMP ADDRESS 

.* EXECINST *—*-*- : ---'--~ r “ ? . 

X 2 

.Xl + C NB LX...-_________- : ...__- 

SELECT,X3+PSA 

EXIT OECCDE THE HARDWARE TYPE 

™_ I , GOEG .Q.0 t+WF ^l r& .~— — —~ 

FILEI0-728.X2 FILE I/O 























































o 


USER I/O INSTRUCTION DECODE 

IWECXJIJE11TT ^ - - . 

PRIO-728»X2 LINE PRINTER I/C 

-IOOECODE + HTPUN---.- - 

P UNI 0-723 > X2 CARD PUNCH I/O 

IODECODE+HTCR 

— CRT 0-72 B,X2 CARD"READER I/O * - * 

IOQEC ODE + HTM T 

MTI0-72B» X2 MAGNETIC TAPE I/O 

IODECODE+HTT TY 

TTYI0-728,X2 TELETYPE I/O 

.IOOECODE+HTPLCT---—.—.--- 

PRIQ-728»X2 X/Y PLOTTER I/O 

IOOECODE+HTNULL 

--ONtrltte INCINERATOR I/O 

IODECODE+HTT V 

T VI0-72Bj X2 CRT DISPLAY 

TOOECODE+HTRAF...... ... ”.“.. 

R AFI0-72B j X 2 RANDOM ACCESS FILE I/O 

-1 ODE- GOQE+-HT T AS K--- - - — - 

PUNI 0-72B sX2 TASK OUTPUT 

I ODECODE + HTMSF 

- MSFI0-72B»X2 USER HASS ST0RAGE UNIT 

IODECODE+HTPTF 

_PTPI0-728«X2. PAPER TAPE PUNCH OU TP UT 

IODECODE+HTMAX ADJUST THE ORIGIN 


F CONTROL 72XX 

ZABORT 73 XX 

—p-nrr-— 

ZABORT 75 XX 

. F OUT H .....76..XX. 

T TYCNTRL 72XX 

— 2A30RT----7-3 XX-- 

TTYINPW 74XX 

ZABORT 75 XX 

T-TY-O-UTW-.—.76*XX .-. 

FRONT RL 72XX 

. “ . . ..7 3 X X" ~.■. : ..... : . 

ZABORT INPUT FROM PRINTER NOT ALLOWED 

. ZA30RT :— -75 XX _ ----- 

3 5 76 XX 

177777B MAKE A CHECK ON THE RECORD SIZE 

“T6yX'3+PSA..TO'8E CERTAIN IT IS "NOT TOO LONG 

ZWCMAX WORDCOUNT IS TOO LARGE 

ZWCZERO DONT BILL FOR ILLruAL WRITES 


ACCWORD»X1+CN8LK 
-F-OU-T-Si- 


PUNCNTRL 
/ABORT 
ZA80RT 
ZABORT 

21 r "”' 

T 6,X 3 +PSA 

-5 -- 

FCHECKW 

41 

FGHE'CKW 


G RGNT RL 


ZA30RT 


CRINPW 
2 ABORT 


ZA30RT 



72 XX 
7*3'X'X 

INPUT FROM PUNCH NOT ALLOWED 

75 XX 

76 XX 


B I N A R Y.BI T.TO.SIGN.PO S I T 10N 

JUMP IF BCD 


72XX 

73 XX...*. .. ~~ ■. 

74XX 
7 5 X X 

OUTPUT TO CARD READER NOTALLOWED 


M T CN T-Rt—'————72'XX 
ZA30RT 73 X X 

MTINPW 74XX 

Z ABORT. . 75XX 

M TOUT W 76XX 


*+4 72 XX 

*+3 73XX 

Z ABORT. 74 XX 

Z ABORT 75XX 
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UIO 


04471.1460 0010 

04472 01000603 P 


Q: ' 

04473 

01002254 

P 


04474 

01004673 

P 


.0 4475 

01002273 

P 


0 4475 

01004673 

P 

<3 

0 447 7 

01002336 

P 


04500 

01001457 

P 


...04501. 

.01.on.147?. 


O 

04502 

01001547 

P 


0 4503 

01004673 

P 


0 450 4 

01 001667 

P 

O . 

04505 

01000654 

P 


04506. 

.01 00 4 673 

.P 


04507 

01004673 

P 


.. 0-451-0. 

01004-673 

. p„ 

0 

0 4511 

W Jm. W “ W 1 W 

14700077 



0 4512 

0100 4432 

P 


04513 

01001452 

P 

o. w . 

04514 

01 0030 77 

P 


. 04515. 

ormryirr 

P 


0 4516 

01004673 

P 

.~. 

—.04517 

. 04-0-0-344-1- 

.P 


O 

O 

O 

O 


.2889 ENA 

2890 UJP 

.2891..-.---- 

2892 T VI0 UJP 

2893 UJP 

"289 4....—..- UJP 

2895 UJP 

2896 UJP 

289 7 

2898 RAF 10 UJP 

.2 899...-.UJP. 

2900 UJP 

2901 UJP 

29 02 —^jp- 

29 0 2 

2904 PTPIO UJP 

290 5. UJP 

2906 UJP 

.290 7 ...—. UJP . 

2908 ENQ 

2909 UJP 

”2*910 * —— — — 

2911 MSFIO UJP 

2912 UJP 

.2913.. UJP" 

2914 UJP 

.2915- UJP 





o £ 

Cl 

o 


USER I/O INSTRUCTION DECODE 


HTNULL 76 XX 

ASTATUSA 

TVCNTRL 72 XX 

ZA80RT 73 XX 

T VINPW ..."..-...74XX 

ZABORT 75 X X 

TVOUTW 76 XX 


RAFCNTRL 72XX 

.RAFSEEK-- 73 XX------- 

RAFREAD 74XX 

Z ABORT 75 X X 

RAF NR IT E —...76 XX ——■ 

PUNCNTRL 72 XX 

Z ABORT.*.73 XX.'. . .. 

Z ABORT INPUT NGT ALLOWED 

.Z-ABORT—...-.75 XX...- 

62+1 MAX OUTPUT RECORD SIZE 

FCHECKW 

MSFCNTRL 72XX 

MSFSEEK 73 XX 

.HSFREOTfX ~ 7¥50C 

ZA3GRT 75 XX 

- MSF-RE-AD-X---— 76 XX 



°CD 

9 o 

sO 

s 

O 

OI 

i.O 
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0 4520 
04521 

.04522 

0 452 3 
04524 
'04525 
045 26 
04527 
0 4530 
04531 


14 60 45 22 
01077777 
03004537 
20 377777 
12077755 
03104674 
21304251 
20304302 
35003440 
05500000 


2917 

2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 


CIO 

ASC IIIN 


USER I/O INSTRUCTION DECODE 

*+2 ' “ ENTER THE.RETURN ADDRESS 


ENA *+2 .".. 

UJP CHARINP 

.AZJ, EQ-SKIP---— 

LOA SYSC0DE,X3+PSA 

SHA -18 

LOG S YSC M,X 3 +PSA 

LDA CR,X3+PSA 

.SSA...8.IT 1 9. 

QSG * S 0 


-JUMP IF WE.GOT A.CHARACTER . 

GET TYPE CF SYSTEM 

ABORT IF NCT A TTY.....— 

SET BIT 19 IN THE USERS CR WORO 
IF HE IS IN CCNTRGL MODE 
ANDHE HASNOTTY INPUT STRING. 
SKIP IF NCT IN CONTROL MODE 


- -. 0453 2 

04533 

04534 

. 40 3.34527 

14677777 

01077777 

X. 

X 

X 


. 292 7 .— 

2928 

2925 


-STA —-- 

ENA 

UJP 

. G R » X-3 + P S A .-.-.- 

INBOUND 

RMTERM 

IO0OUND 
GO SWAP 

THE USER 

USERS 



04535 

20304532 

X 


2931 

EXECCRA 

LDA 

C R, X3+PSA 

GIVE THS 

USER HIS OR WORD 



0 453 6 
04537 
. u /»c/. n 

40304161 
14 60 0 0 01 

X 

... V.... 


2932 

2933 

_ p q •? <,. 

STA 

SKIP 

__pfitijfip. . 

STA 

ENA 

...Ann__ 

A , X3 + PSA 

1 

.Q. C _ V T X OCA........ 





04541 

04542 

.. o ~u.u *t x? c. u. 

44304540 

01004322 

X 

X 


urO" -*t' ™ 

2935 

2936 

r xj Ju t 

SWA 

UJP 

, J <rv D * f UH 

PC,X3+PSA 

RETURN 





04543 

04544 

20 30 3663 
12077760 

X 


...2937.. 

2938 

2939 

ASCIIOUT 

LDA 

SHA 

TERMINAL,X3+PSA 
-15 ... 

GET THE 

USERS TERMINAL NUMBER 



.04545 

04546 

. 0 454 7... 

^3WBT0F 
20 10 3615 
. i ? muio n ? 

X 


.294T. . 

2941 

. pa u p . 


.TAX 

LDA 

.<5H.fi _ 

XI 

PSA8LK,XI 

_2-_-_ 

IS HE USING A TTY 



04550 

04551 

03204674 

20304536 

p 

X 


2943 

2944 

,,, ... .. . . . .. ....... ... . 4T%... . .. ... , ..... . 


AZJ,G£ 

LDA 

EXCAB ORT 

A,X3+PSA 

ABORT IF 

NOT 



'' ""...0455 2“ 

04553 

04554 

' 14204554' 
01077777 
03004537 

p — 

X 

p 


-- 

2946 

2947 

TT Y W R I T E 

ENI 

UJP 

AZJ, EQ 

cha.4outp 

SKIP 

tNICK 1 Ht..KtTCI K'IS fiUUKCil 

JUMP IF EVERYTHING IS OK 



“ ..0 4555. 

.'CTOT¥5W 

X. 


.W 

2949 


ujp.:.~ 

“KTTTEPFr.... 






-04-55-6- 

04557 

04560 


-2-0-0-0-5-1-54- 
12 00 0 Q11 
04640774 


-2-95 0 - 
295 i 
29 52 


-I-R-ft-D-AR- 


-E-X-E-S-I-N-S-T- 

9 

407748 


-GET.THE.TRAPPED.INSTRU CT-ION- 

GET THE SECURITY SITS 

SKIP IF A 774X XX40 INSTRUCTION 


....0 4561- 

04562 

04553 

'01004674 
16641160 
12 000011 

P 

2953 

2953+001 

2955 


UJP 

•XOA 

SHA 

—— 

4 07 7 4 8 + 1648 

g 

—ABORT IF NOT JUST RIGHT 

CONVERT TC A /JUMP* INSTRUCTION 

THE NEW PC IS IN A 




0 4564 

14 2 G 0 0 0 0 

21304541 

X 

2955+001 

£956 

p-qc 7 

11J H P 

ENI 

i nn. 

■ Q,X2 

PC. X3+PSA - ... _ 

TO SAY NOT REALLY A FJUMP* 

.in a [j... v .HP . PROGRAM. C-OUN-T-F-R.-.-...... 




04566 

0 456 7 

44 30 4 5 65 
12077760 

X 

295 8 

295 9 


SWA 

SHA 

PC.X3+PSA 

-15 





0 457 0 
04571 
04572 

16600007 
'77660000 
1.2 40 dull 


29*6*0— . 

2961 

2962 


XU A 

AOS 

SHQ 

tP0T) 0 / b 

9 





.04973. 

04574 

0 4 575 

77674090 
130G001? 
n 4 5* a G 0 fl fj 


.29-63. 

29 64 

2Q6-4+0G 1 _ 


TS"S " 
SHAQ 

15 

ft . < :•> 

-SKIP TF ..A-SADAR bREAKFOINI . 




04576 

04577 

46304177 
7767 0 003 

X 

2965 

296 6 


SCHA 

OS A 

LJA,X3+PSA 

SAVE USERS LAST JUMP ADDRESS 




0 460 0 
04601 
04602 

1660 0 001 ' 
77664000 
20304535 

X 

4 Jr 7 

2968 

2 96 9 


XOA' 

AIS 

LDA 

“ 0 UU 01 B. 

CR* X3+PSA 





“..*.'.0450 3"' 

04604 

0 460 5 

~5T QT GU'77~ 
17577773 
17600Q04 


. Z'9'72 . 

29 7-3 

2974 


tftct . " 

ANQ,S 

aha _ 

...778... — ... . 

7 7 7 7 3 B 

0 000 4 n 

. LOAD- .THE.DTSEh.FILE' 77. 

CLEAR THE RGS BIT 




04606 

0 4607 

0460 0 0 00 
16 70 0 0 04 


297 5 

29 7 6 


ASE 

XOQ 

. ...V#-- w - .nr .*--- --* -----—--- 

0 

000048 

SKIP IF RIS 

SET THE RGS SIT 




04t>10 

0 4611 

p3 410 0 77 
01004542 

X 

2 9/7 

297 8 

2979 


T C n 

UJP 

7 78 

RETURN 

RLolGRfc The hCRD 




....04612. 

0 4613 

0 4614 

.I7oF7¥13T' 

03104616 
20304134 

p 

x 

...298 0.“. 

2981 
.... 2 982 

“E'XECTNS~. 

ANA . 

AZJ,NE 
LDA ' 

.. 1374WB~“ . 

EXECINS1 

IS*X3+PSA 





04615 

G 4616 

0 4617 
04620 

01004536 

37 3 0 4614~ 

03104622 

14600002 

p 

X 

p 

2983 

2984 

”2 9'8'5'“" 

298 6 

2987 

-EXECINSl-- 

UJP 

•LPA~ 

AZJ,NE 

ENA 

. Jr t V#•" •- l-■■■'■'%*?■ • -— 

STA 

— IS,X3+PSA". 

EXECINS2 

2 





..04621. 

....0 462 2 . 

.0T004540. 

36304616 

p. 

x. 

.298 8 . 

2989 

, ....299 0.__ 

.EXEClNS 2. 

UJP. 

SC A 

— .".P CI N C R. “ 

_ I.S»XJApSA-u.:..i..’.____ 





04623 

01004634 

a ~7 r r\ a n n 

p 

2991 

299 2 


UJP 

A V| A 

EXSSHARE 





04o2 4 

0 4 625 

i/buJJUO 
12 00 0 014 


.. 29 93 . 

2994 

h XL CS 6 Ir 

A N A 

SHA 

3 0 0 Q 8 

12 






O 
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04626 .16477777. . 2995..XCA,S 



04627 

. n .46 1 1 . 

37304622 
.0100.4634 

X 

.p ... 


2996 

.2-99-7. 

LPA 

... ......u j P. 

a> 

04631 

17603000 



2998 

2999 

EXECSSIM ANA 

Q .... 

0 4632 
04633 
04634 

12000014 
35304627 
4 0 bli 46 b3 

X 

X 


30 0 0 
300 1 
3002 

SH A 

3S A 

EXSSHARE STA 


.04635 

. .(J4636. 

01 004537 

0 0 00.0 0.00- 

p 


300 3 
300 4 

.30 0 5. 

UJH 

...T MPlJRFfl 1. VFD. 

G . 





30 0 6 
300 7 


G _. 


04637 

p 


3 0 0 8 

3009 

3010 

REWY01 EQU 

IF 


.04637. 

G 454 0 

.0 4641 

.20 10 0005“ 

03204642 
GO 004641 

p 

p. 


3 011 
3012 

..30 i 3 . 

LD A 

AZJ,GE 

.......HLT. 

O 

04642 

n {.m. ~2 

14477 776 



3014 

3015 

.DEBUG002 

ENA,S 

o ... 

U 4 64 o 
04644 
04645 

o4TuUu 0 5 
0100G000 
20004000 



o IJ16 
301 7 
3018 

.RA D. 

REWRITEY UJP 

LD A 


0 4646 

0 4647 

.;.0 4650. 

.0 0 7 0 2 2 2 6. 

20100006 
12 0000 03. 

“X. 


.3UT9~. 

3020 

__ 30 21_ 

„ , RTJ 

LDA 

_;_ SR 4 . 

o 

04651 

0 465 2 

03204637 

13000006 

. p .".. 


3022 

30 2 3 

AZJ,GE 

SHAQ 

o ...... 

U4o5 3 
04654 
04655 

14 4 /(fi b. 

17700017 

04700004 



30 2 4 
3025 
. .3026 

. ENA,S 

ANQ 

QSE 


0 4 656 

0 4 657 

.34”3'0T3T5“ 

34100007 

“■“X. — . 


.3 02 7. 

3028 

. 30 29-... 

. -RAD. 

RAD 

IF 

o 

.0 466 0. 

04661 

20100007. 

05400000 

ri 


3030 

3031 

LDA 

ASG j S 

o ... 

U 4hb c 

04663. 

■ U'O'lia 4bo c 

14200001 

r 


.3 0 3 2 

3033 

3034 

HLT 

. DEBUGS 03 

ENI 


04664 

04665 

.04666. 

.2'QTG'0Wr 

00702204 
.20 10-0 0 0 3 

X 


.3¥3”5.*. 

3 0 36 

..3037. 

".... '.EOT. r ” 

RTJ 

_ __ __......LD-A-. 

O ." 

0 4667. 

0 467 0 

40 10 0 0 01 
01004637 

p 


3 0 3 8 
3039 

STA 

UJP 


o 


I o 


a 1 

to 

o, 

o“ 

a 

o s 

4 

Q, 

o ? 


USER I/O INSTRUCTION DECODE 


777776 .'...“.".• ' ...• ... 

IS,X 3 + PSA 

EXSSHARE .....———. -.— .- 

3 0003 

IS,X3+PSA 
IS,X3+PSA 

skip .“. .—. . : .~.r -.—”. 

A-24/IMPURE--—.EVEN PARITY.WORD FOR REGION 01 


DEBUG EQ 0. GOTO .DEBUG 0 02 

6LKRyXl + CN8LK.... : . . DEBUG 

*+2 DEBUG 

----- DEBUG 


-1 

8LKR, Xl+CNBLK ——Ff-)(-BteeK'S--fiEfrAiIN^fN'G——~— 

IMPURE 

CORE LOAD THE NEXT SLOCK NUMBER 

.."RERRITEX.. r “ ,— .GCSWIZZEL.THE.CONTROL.BLOCK 

EPP,Xl+CNBLK IS THIS A DESTRUCTIVE READ FILE 

.2-3-2-0-—— -,-_------- 

REWY01 JUMP IF NOT 

24-15+20-23 

HTMASK OO WE HAVE A CARO READER 

HTCR DONT HIT TFBLKS IF SO 

.TTBCK57X 3+PSA" ~ . " . . .. 

TFL,Xl+CNBLK THE FILE IS A SLOCK SHORTER 

-.DEBUG.EG O ,..GOTO.. DEBUG0 0 3..-..-. 

TFL,Xl+CNBLK DEBUG 

0 DEBUG 

. * ...-..-.DEBUG - 


1,X2 ■ FREE THE LAST BLOCK 

TTP7XTTCNBCK.“ . ~ : .*.~.... 

FREEBLK 

CBP,X1+CNSLK..SET THE NEW.LOAD.POINT 

LP,Xl+CNBLK 
REWY01 





















































04744 
0 474 5 
04746 
04747 
04750 
04751 
0 4752 
04753 


15277777 

00705036 

20304701 

53420045 

14600000 

'4T30“474T5' 

20005151 

53420053 
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USER I/O INSTRUCTION 

DE CODE 









** ** * *** ** ****** *** 

3042 * 

7 n/i 7 . * nrnwTpni 

** ** * * ****** *** ** 

****** ******************************** 

* 

...*. 


0 





3044 .* 

3045 * 


.n i ^ u.. .. . 

THIS ROUTINE PERFORMS THE 

NECESSARY BOOKKEEPING TO PUT 

A 

* 

* 


0 _ 





3 04 6 T 

3047 * 

3048 * 


USER INTO C ONTROL MCDE 

ENTER WITH THE ERROR CODE 

IN 

Q AND PSA POINTER IN X3 


*. 

* 







3049 * 

3050 * 

30 51._* 


EXIT WILL 

3 E MADE TO RETURN 

IN INTSORT 


* 

.*. . 


O 





V 

* * * ***** 

************************************** ** ************************* 


G . 

U 4671 
U4672 

77674G00 

03104674 

P 


3054 

3055 

ABORT 

ISA 

AZU,NE 


EXCABORT 







04673 

04674 

_____0 4675. 

00705100 

14700005 

20304526 

P 

X ... 


•3056 

3057 

3 n *5 r .- 

ZABORT. 

EXCABORT 

nCONTRO-L 

RTJ 

ENQ 

.jjji___ 


R Z 

ILLINS 

^ysiCM * y 3 4..P/S A—.~. 


ILLEGAL INSTRUCTION 

.f;H F r.V . F.fiR .PF- FKTFR.-... 




O 

0 4676 
04677 

17777777 

37002726 

X 


3059 

3060 


ANQ 

LP A 


777776 

3IT2 3 


COMBINE SYSCM BIT 23 AND 

CMCOOE 



O . 

..0 4/00. 

0 4701 
04 702 

“5 3 U4u U 0 Tr 
40304165. 
0330 4746 

X 

p 


3 0 61 

3 062 

3063 


..A Q A ... 

ST A 

AZJ, LT 


CMC0DE,X34PSA 

CMREQ06 


JUMP IF A RE-ENTER 





.04703 

04704 
...04705 

T430WO¥ 
00703626 
_S.43.0-4 2 6 7- 

X 

x... 


"'30'ff¥ ...~ 

3065 

3,0,66. 


” ENI ' 
RTJ 

.LOI.. 


X 3.~.“.' 

GETMEM 

R-PSA-PTR-X34 PSA- - 


ASK FOR A 16 WORD SLOCK 

... RFSTORF THF- PS A. PC-I-NTF-R. 




O “ 

0 4 706 
04707 

35004677 

21304675 

X 

X 

V , 


30 6 7 

3068 


SS A 

LDQ 


8 IT 2 3 

SYSCM 3 X3+PSA 


INDICATE IN CONTROL MCDE 
GET CM RF 44 




O . 

...y 4/iu 

04711 

04712 

4 b 8 0 4 i u r 
53600000 
14120040 

X 


3 0 69 

3070 

3071 


bT 4 

TAI 

ENI 


S YSC H i X 3* PS A.~ 

X 2 

2B0406jXi 


'SA VE""Al UR Eb'S C r RF SA Vt 

SAVE RF40-RF56 





.04713 

04714 

__ 04715. 

.47Tir¥7r¥ . 

53020040 

. 4n24oni!.(L. 

p 


30 72 

3 0 73 

3 0 7-34-. 0-0-1_ 


ST I. 

TM A 

ST A 


4084IMPURE 

. Q.-.X--2-_-..... 


QUICK AND DIRTY 

GET RF XX 

_ Slue. .TN RF SAVF. A-R-F-A... 




o-“ 

0 4 716 

0 4717 

n <,,70 n 

10120057 
02204713 

p 


30734002 

3076 


ISI 

IJI 


200578,XI 

*-4, X2 


SKIP IF DONE 

LOOP 173 TIMES 




o 

0 4 7 C 0 
04721 
04722 

5 3 41Q Q44 
20 304576 
53420040 

X 


8 0 if 

3090 

3091 


T QM 

LOA ■ 
TAM 


4 43.. 

LJA,X34PSA 

4 08 


' RESTORE' “CM: .Rr" 44.. 

GET SYSTEM CODE 

SAVE SYSTEM CODE AND LJA 

.F.0.8..CM.. 




04723 

0 472 4 

...047? 5. 

20 30 4566 
13077760 
. 77 . 474 . 0 . nn. 

.X... 


3 09 2 

3 093 

3 094..... 

CRREQ04 

LOA 
SHAQ 
_ZS-A-.- 


PC,X3±PSS 

-15 


GET USERS PC 

PC T C n 

T^nTRUC IT C N--^-T-A-TP.xo.A. 




O " 

04726 

04727 

0 3 1Q 4 7 31 
00705100 

"p"'. 

p 


3 09 5 

3 39 6 


AZJ,NE 

RTJ 


*43 

RZ 


JUMP IF NOT PUSHED 

POP OUT OF STATE ZERO 




o „ 

0 4 73 0 

04731 

010U 4723 

13 GO 0 017 



5 0 9 7 

3098 

3 399 


SHAQ 


QMRffQC4-— 

15 


FORM 18 8IT PC IN A 





.:.0 4732 . 

.....0 4733. 

53 42 G0 41 

. 2...S.3.O..463.4.. 

.x.. 


'TOT 

3101 

-•310-2-___ 


....4C-A-Q_ 


"Tfrsr 

IS. X34PSA_-_ 


.... 

_GET IS.AND CR. W-C-R-D.-.-.-.-_ 




o ~~ 

0 4734 
04735 

1747740Q 
17700004 



3103 

310 4 


ANA 3 S 
ANQ 


774008 

48 

/ 

LEAVE INI. MASK AND FAULT 
.LEAVE RCS SIT 

: s.. 



Q. 

U47ob 

04737 

0 4740 

93040308 

53420042 

20304551 

X 


? 1 ft 5 

3T 0 6 

310 7 


ACTS 

TAM 

LOA 


428 

A »X3 + PSA 


SAVE RCS, IM AND FAULTS FOR C.M. 
GET USERS A REGISTER 



i *•!, 

1 . 

0 4741 

0 4742 
-...04743 

.53420043 

15377777 
. 5420-4-7-05- 

X 

-X. 


"Sira . _ 

3109 

-311.0- 


Dffl 

INI 

.L D -I -._ 


T3"8 ..... — 

VMMSAVE,X3+PSA 
....R.p.S.A-PT-R-,-X24-P-S A--- 


SAVE A REGISTER FOR CM 
FORM DESTINATION ADDRESS 
—FORM.SOURCE.ADDRESS.:. 





3112 

2113 

3114 

3115 

3116 

3117 

3118 


CMREQ06- 


O 

04754 

04755 

n t. 7 an 

20303610 

53420052 

X 

..-V . • - - 

3119 

3120 

O, _ 

0 4/56 
04757 

2 0 3 r //// 
53420056 

X 

.8121 

3122 

04760 

14677777 

X 

3123 

•0 

.04761. 

.0 0 7 7 7 777 

X... 

—. 3i24 . 


04762 

0100 4611 

X 

3125 


VMMCM.X2 +PSA 
MAPMQVE 

■-6-MGG'0E'*y''X"3'+’PSA"“ 

4 53 

0 

CMC00EjX3+PSA 
EXECINST 
-5 38-- 

T 3» X3+PSA 

5 23 

UDdITS,X3+PSA 
5 68 

CMS YSP 

EIffMOVE .* 

RETURN 


MOVE 3 PAGES 

PASS THE CM ERROR CODE 

ZE RO . THE . R ECU ESI .CODE. 

GIVE CONTROL MODE THE 
ILLEGAL -INSTRUCTION. 


ILLEGAL INSTRUCTION-DRIVE FAILURE 
GIVE C.M..T HE U D Ft AGS “WORD"-— 

ADDRESS OF CM LI8TAB ENTRY 

MAP. CONTROL .MODE. 

RUN THE USER 


-V- 


**.* * ** ** * ** ^ ^ ****** * * * * ** ** * * * * * * * ** * ** * *** * ** * ** ***** * *,,* * 

* 


o 
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3129 

3130 

.*... 

* 

* ^ * * v--V 

CODES PA 

-V- ?--¥• 

e 



u u u u u 

0 0 0 0 2 

0 0 0 03 

oxoo 

3134 

3135 

LUbKLW 

CONTROLA 

TIMEOUT 

tuu 

EQU 

EQU 



0 0 004 

0 0 0 0 5 

....Q ..0 0 06.-... 

3136 

3137 

.:.34 36... 

CCREAD 

ILLINS 
rNS F IL. 

EQU 

EQU 

EQU. 

Q . 


0 0 0 0 7 

0 0 010 

3139 

3140 

FPVIOL 

LUMUD 

EQU 

EQU 

Cl 


0 0 on. """ 

0 0 0 12 

0 00 13 

3141 

3142 

3143 

REA DEOU 
WCZERO 

W CM AX 

EQU 

EQU 

EQU 



. 0 0 014. 

0 0 0 15 

.-0-0-016..- 

..3144. 

3145 

...3-1-46. 

.CRT VFAIL 

ABNIO 
.liA RN. 

EQU 

EQU 

FQU.... 

O 


0 0017 

0 0 020 

3147 

3148 

MPVIOL 

MEMPARTY 

EQU 

EQU 

Q . 


.U U ti 21 . . 

0 0 022 

0 0023 

.3149. 

315 0 

3151 

..OPrtBORi 

LOGOFFR 

OPTERM 

EQU. 

EQU 

EQU 



.0 0 024... 

.3152. 

.VANISH. 

"EQU... 

O 

0 476 3 

..n /.,; 7 a /. . 

00705100 P 

3154 

3155 

, „ „ ‘2 a rr,.£L „ 

FPV 

RTJ 

o. 

U H ( O H 

0 4765 

14 r u tnrtr/ 

01004675 P 

815 0 

3157 

3158 


cN'fcr . 

UJP 


..04766. 

0 4767 

..0 4770- 

.OOTOFTOO.P.:.. 

14700015 

010 0 4 675 P.-. 

315 9 

3 i 6 0 

.3161. 

.TOSMASH. 

"RTJ. 

ENQ 

(jjp... 

O 0 

04771 
04 77 2 
04773 
04774 

00701766 X 

00705072 P . 

14700017 

01004675 P 

3162 

3163 
.3164 

3165 

316 6 

IRERRORA 

TRERRORB 

IRERROR 

RTJ 

RTJ 

ENQ 

UJP 


04775 
.0 4776 

Q07Q510U P 
.14 7 0 -0 -0 13.- 

...316 7 

1 o 0 

..L. 3.1 & c. 

Z WC MAX 

RTJ 

ENQ-. -. 

o 

04777 

01004675 P 

317 0' 

3171 

7 j "JO 


UJP 

o 

U 5U 0 0 
0500 1 
05002 

0 0 7 0 b10 U r 

14700012 

01004675 P_ 

c 1 / Z 

3173 

3174 

ZWL L 6 RO 

R TJ . 

ENQ 

UJP___ 


0 50 0 3 

...05 0-0-4. 

00705100 P 
.14700-011.-.-. 

3x75r 

3176 

..-.31.7 7_ 

ZROEQD 

RTJ 

ENQ... 

O . 

05005 

01004675 P 

3178 


UJP 

Q,. 

05006 

15304744 X 

3180 

CMEX04 

INI 


05007. 

05010 

.:.050ii. 

.54204743 X... 

15204742 X 

.0-0-70-50.3-6.P .-._ 

3 1 S 1 

3182 

..3.1.A3...- 


"LUX' ... 

INI 

..R.Tj_:_ 

O 

05012 

05013 

flCIIM,/, 

01000000 

20304710 X 

318 4 

3185 

C HEX IT 

UJP 

LD A 

o. 

U o U 1 H 
05015 
05016 

1 i'TO'U'ty u4'". 

5360 0 000 

21200000 

atob ^ 

3187 

3187+001 


C 

TAI 

LDQ 


0 5017 
05020 

.0 5 021 - 

.53 410 040... ; .~ 

00777777 X 

...5302.0 0 4-4- ... 

3167+002 

3188 

...318.9_ _ _:. 


TQM 

RTJ 

.J. HA.-. 

o° “ 

05022 

Acncc 

14310041 

/. ~7-11 n C (T O C . D 

3190 

3190+001 

m c v no. 

ENI 

CT T 

o . 

Uov C£ 
05024 
05025 

.- Hr .^ • U' 0 U ■ Co .r ..... . 

21200001 

53410040 

3193 

3194 

.bn h aU c 

t> 1 i 

LDQ 

TQM 

h 

05026 

05027 

.10 310 0 57 ■“~ 

02205023 P 

” ..3194+001 

3196 
_____ 31,97 


TS'I “ 
IJI 

O' 

05030 

05031 

54305007 X 
37001441 X 

. f. n “/n c n i ,,T 2 .v . 

3198 

3199 


LD I 

LP A 

C T A 


U z> Li O c 

05033 

*4 U 0 U to IJ 1 O a 

14277777 X 

uui) U 

3201 


O t A 

ENI 


O 


I/O INSTRUCTION DECODE 


SEC.TO CONTROL HGOE 



LOGIN ERROR CODE 
CONTROL-A OR TV t 
TIME CUT 

ATTEMPTTOREADCONTROLCARO 
ILLEGAL INSTRUCTION 

INSUFFICIENT.FILE SPACE—. 

FILE PROTECT VIOLATION 
LOGICAL UNIT UNDEFINED 
READATTEMPTED AT END OF DATA 
I/O WITH WCROCQUNT OF ZERO 
I/O WITH WCRCCCUNT TOO LARGE 

TAPE.DRIVE.FAILURE.'....... 

ABNORMAL I/O CONDITION 

WAR NI-N G OF.SYSTEM END IN G.. 

MEMORY PROTECT VIOLATION 
MEMORY PARITY ERROR 

OPERATOR‘ ABORT--- ; -_ 

LOGOFF AT END OF TASK 

OPERATOR TERMINATION 

VANISH.AT END.OF.TASK.. 


R2 

“PPV-KHr— 
QCONTROL 

RZ ~ 
ABNIO 

-Q CONTROL. 


FLOAT 


UNSAVE 


MPVIOL 


QCONTROL 


.R Z ' 

JOAX- 

QCONTROL 


WCZERO 
.QC ONT ROL 


RZ 

R EAD E GO. 

QCONTROL 


—PHrE PROTECT VT 0 l A FTON 

ABNORMAL I/O CONDITION 

GIVE UP THE FILE CORE BLOCK 
MEMORY PROTECT VIOLATION 

--WORDCQUNT TOO LARGE ——,. 

WORDCOUNT IS ZERO 

.ATTEMPT 10.RE A 0 . PAST . ENO .OF. DATA 


VMMCM»X3+PSA DESTINATION 

. R PS A P T R V X 2+P S A. “ ~ ' ......" 

V MMS AVE > X2+PSA 

.MAPMOVE.- _ MOVE 3 PAGES ----- 

IMPURE 

S YSGM jX 3 + PSA GET ADDRESS OF 16 WORD BLOCK 

-4-fX"3—---:---“LEN-G-FH- ■ 

X2 SAVE ADDRESS IN X2 

Q.X2 GET WORD CLOBBERED BY FREEMEM 

"'4 03.' ~ RESTORE.RF40... . 

FREEMEM FREE THE 16 WORD RF SAVE 

.4.43.--- r -GET.RF.44.FOR.CONTROL.MODE-._.. 

1G0418,X3 

_^ + .. 2X3 --RESTORE.THE-'USERS.REGISTER.FILE 

1,X2 GET A WORD FROM THE BLOCK 

4 08+1MPURE TRANSFER IT TC THE REGISTER FILE 

1005 7BVX3 SKIP IF DONE....... 

CMEX02,X2 LOOP UNTIL DONE 


RPSAPTR,X3+PSA RESTORE THE PSA INDEX 

NBIT23 REMOVE BIT 23 FROM RF 44 

S YSCM,X3+PSA INDICATE USER NOT IN CONTROL MODE 

CMPAGE3,X2 
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..LI 50 3 4. 

05035 

14 60 5 Li 06 

01077777 

P 

X 

32 02 
320 3 

(X 

o ... 

U5UOD 

05037 

05040 

U1UUUUuu 
20200000 
21077777 

X 

O <L U 3 

320 6 
320 7 


05041 
05042 
. pi 5 n 4 3. 

4120 0 0 00 
40 30 0 0 00 
U54U20G0 
05 40 0 000 
01005052 


320 8 
3209 

.. 3 p i n. 

o 

05044 

05045 

P 

3211 

3212 

o .... 

.. '05046 

05047 

05050 

17 ou 0177 
15602573 
44005051 

X 

p 

.3213. 

3214 

3215 


.0 5051. 

05052 

....n 5 il 5 3. 

47300000 

15200001 

.p....... 

.3216. 

3217 

.. Ilia. 

o 

05054 

05055 

02305037 

14200037 

r 

P 

*J> C. X u 

3219 

3220 

o . 

0 505 6 
05057 
05060 

14 60 4 0 0 U 
77 64414Q 
02605057 

p 

.. ■3-2'2'i~“" 

3222 
322 3 


....05061. 

05062 

"5'43'0'5'UW 
01005036 

x. 

p 

.3224.' 

3 22 5 

..3 79 6 . 

O ■ 

05063 

11111111 


3227 


ENA 

UJP 


M AP MOVE 
MAPM01 


MAPM02 


s—od-p~— 

LOA 
LOQ 
S(Q 
ST A 

.ASG,S 

ASG j S 
UJP 

—ANA- 
IN A 
SWA 

.ST I. 

INI 

-SSH- 

IJI 

ENI 

ENA— 

APF 

IJD 

mr 

UJP 


THREE 




o 

o 

o 

q 2 

O 1 

i o 

O, 

O 8 


o ; 

o 

o : 



USER I/O INSTRUCTION DECODE 


CHEX 0 4 RETURN ADDRESS . 

ZEROPG ZERO THE SCRATCH PAGE 


IMPURE...-.... .-ROUTINE TC MGVE THREE 

0 > X2 + PSA PAGES FROM C(X2) TO C(X3) 

ZROPAGE AND INDICATE THAT THE 

.0j X 2 +PSA . PAGES AT C(X2) ARE ZEROPAGES 

0,X3+PSA 

-2 00 0 8 — -----.- — 

0B 

MAPH02 JUMP IF NCT IN CORE 

-tW— ----- “GET* P AGE NUMB E R— ———— 

PAGETABL 

*+l PAGETABL ADDRESS 

I MPU R E , X 3 ..UP D A T E PAG E T A 6 L P C INTER 

i X 2 

-THREE------- LO G P . 3 . TIM ES---- 

MAPM01,X3+PSA 
NPU-1,X2 

“ArGO'S*© " “ ' - — - ______ __™ ~ — 

1403+PFWjX2 SET ALL USER PAGES TO 

*-lj X2 ILLEGAL TG REFFERENCE 

RPSAPTR,X3 + PSA : RESTORE THE PSA P'CINTER 

MAPMOVE EXIT 


1111111+IMPURE 
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STATUS SAVING 

ROUTINES 

. ,(D 


05064 

0 5065 

..0 5Q66. 

01 00 0 0 00 
25304270 
. u. n .. 33 /1. 

X 

.x...- 

323 0 
3231 

.. 3 2-3-2 .- 

SAVE 

UJP 
LOAG 
.STAG 

IMPURE 

11> X3 + PSA 
.Fl, X 3 +PS A 

LOAD INDEX 1 AND INDEX 2 

SAVE THEM INFl AND F2 


CD 

05067 

05070 

2 0 30 47 33 
40 377777 

X 

X 

32 3 3 
3234 


LD A 
STA 

IS» X3 + PSA 
F3,X3+PSA 

LOAD THE INTERNAL STATUS 

SAVE IT IN F3 

l ’(2) 

Cl 

050 71 

01005064 

p 

3 23 5 
3236 
323 7 


UJP 

SAVE 

.RETURN. . 

.- ..,0 


0 507 2 
05073 

._.... 1) 54) 7 u . 

01000000 
2530 5066 
-45 311 5 1165. 

X 

X ... 

323 e 
323 9 

...32 4 0. 

UNSAVE 

UJP 
LDAQ 
ST A Q. 

IMPURE 

F1j X3 + PSA 
.T-1 . X-3 +-P S A. 

. rp STORE T N D F X .1 AMO. T N OF X ? . 


o 

05075 

05076 

20305070 

40305067 

X 

X 

3241 

3242 


LD A 

Si A 

F3,X3+PSA 

IS,X3+PSA 

RESTORE THE INTERNAL STATUS 

o 

o 

0 507 7 

01 00 50 72 

P . . 

3243 

3244 

3245 


UJP 

UNSAVE 

RETURN.. 

... ; . 1 . hO 

05100 

05101 

.n n i n 2 . 

01000000 
00705107 
? (130 36 0 3. 

p 

. x. 

3246 

3247 

. 7 5. it A. 

RZ 

UJP 

RTJ 

,.L,.n.A . 

IMPURE 

EXIT 

....T9 i n + p s a. 

RETURN FROM PROGRAM STATE ZERO. 


o 

05103 

05104 

Ci U all uu U 

44300506 

25303450 

X 

X 

3249 

3250 


SWA 

LOAG 

1 L f Aw* r j M 

I 3,X3+PSA 

T 5» X3+PSA 

RESTORE INDEX 3 

o 

. ....... o l 

o 

0 51 0 5 
05106 

45 30 4 7 40 
01005100 

x. 

p 

32sl 

3252 

3253 


ST AQ 
UJP 

.A , X 3 + PS A. 

RZ 

RE S f C KE A AND Q 

....... «o 

05107 

.... 05110.- 

01 0 0 0 00 0 
20 3 77777. 


. z'Z5'tr~ 

3255 

.. 3 2 - . 

EXIT 

UJP 

lda_ 

IMPURE 

... T 4, X34PSA_ 


..... 7 : i 

o 

05111 

05112 

13077776 

77660000 

.__ 

3257 

3258 


SHAG 

AOS 

-1 


O 

0 

.0 5113" 

05114 

12 0 7 7 774 
77664000 


“ ■ *3259. 

3260 

3 261 


SHA.. 

AIS 

IF 

. ; . DEBUG EQ . 0..,.. 

GOTO .DEBUG 0 04 

.... O 

..~.'. 05115.. 

05116 

....._. Q5117 . 

T767400Q. 

05600001 
-0.Q.00-5117. 

p 

.. 3262" ' 

3263 

... 3264 . 


ISA 

ASG 

hlt_ 

i 

* 

_ .-. 7 .-..DEBUG.. 

DEBUG 

_____ ■ ______ OEBU-G.-..-__-. 


o 

0 512 0 

n £T 4 O 4 

20304602 

X 

3265 

3266 

. .■J O 1 7 

.DEBUG004 

LDA 

CR» X3 + PSA 

4 

LOAD THE USERS CONDITION REGISTER 

O 

o 

y old i 
05122 
05123 

ltOti'UUO 
13000001 
12 00 0 002 


5 c b 7 

3268 

3269 


oHA 

SHAG 

SHA 

1 

2 . 

PUT THE RCS 8IT INTO THE REGISTER 
SHIFT BACK INTO POSITION 

. .o 


CT5T24 . 

05125 

... 0 5126. 

17477767"" 
40395120 
. 2-0-70-4-17-3-- 

X 

. x.-.. 

". 327 0 ‘ 

“2 O 7 i 

C i ± 

. 32-7-2. 


"MAT'S" 

STA 

...L.Q.A_ 

.“. ~~T7T67B .... 

C R» X3+PSA 
. . .. .T-l,..X3-+PSA._ 

CLEAR THE PROGRAM STATE JUMP BIT 
STORE IT SACK 


o 

05127 

0 513 Q 

A IT 4 72 4 

4430-4723 

37077777 

X 

k 

V 

3273 

3274 


U» w- r*i s . 

SWA 

LPA 

.i a n 

PC» X 3+PSA 
82I0R822 


. o 

o 

U D 1 3 .1 
05132 
05133 

o4oU60ft 
77730000 
00703444 

X 

3 2 t $ 
3276 
32 77 


KhO 

VFD 

RTJ 

. . 1 S l X U+PS A . 

A12/DINT 

CLEARN 

PREVENT INTERFERENCE 

CLEAR THE NEGATE BIT 

o 


.0 513 4 

01 00 5107 ■ 

p 

... ~3Z7'tr~ 


U3F~~ 

E XI f 

...RETURN...*.. 7" “ 



O _ ..—....".‘.~.-.~."".~.;.. — .~.~.'. _ ....~..'. _ ..".~.'..". ~~7 .o 


Q,...,.__..__..._.:...._..._.____........_......_._.. : ._....... O 






O.........~~... .~~.~.*.~.~.'. - .. — .■■.“.~.'.'.'.'.'.'.'.■.....~.“. . ~ ~.o 
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0 5135 
05136 

... |l X7 . 

00177777 
00000776 
.n 0410 finnn 


3281 

3282 

....... 3 o >< 3 . 

JITlohl 
KWPF3 

_.._.T \l r i 1 1 S Y. 

OCT 

00 

.ucn 

GD 

05141 

05143 

0 0 00 0 0 0 0 
00000000 


3284 

3285 

TXBUSY 

MSF BUSY 

VFD 

VFD 

0 

.0 514 5 

0 5146 
05147 

00003012 
00 00 0 000 
00 00 0 000 


328 6 

3287 

3288 

MTX I 

TXWC 

108 USY 

VFD 

VFD 

VFD 


. . ...05150. 

..0 5151. 

00 Ou 0000 . 

24640 
.on no oooo 

P 

.3 28 9. 

3290 

..3291.- 

.1.EM P 2. 

OSRSAVE 
_EXECINST 

VFO 
EQU, C 

.VFO. 

O 

05152 

.U w U U U v v U ■ 

05151 

P 

329 2 
3293 

...3294. 

MSFTEMP 
MTSUFFER 

EQU 

ass 

END*— 


O ... NO LINES .WITH. ER RORS 


o 

o 

o 

o 

o 

o 

o 

o 

o 

q s 

O' 

ic 

o, 

o s 


o, 



o 


CONSTANTS AND TENFS 


0 0177777 ~ " : 7 . T " *' .~.~. 4 ' 

WPF3 

.A24/IMPUREjA9/GOO)A15/TVFFAREA--- —-—- - ...- . 

A24/IMPURE,A9/ GOO , A15/MTPFAREA (j) 

A 24/IMPURE,A 9/ 00 0 ,A15/MSFPF 

A 6/0 0,0S/ 0 , A15 ZT XD0NE+IMPURE—-— ~---~---“——- -—<* 

A 24/IMPURE _ 

A2 4/IMPURE . ._.*._. .. . ,Q 

.A 671MPU RE,03/0,A15/IMPURE..... ... .. 

TEMP2 

.A 24/ I MPURE - ——. ------------.9 _ 

EXECINST (J 

MTMINREC 
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2638.04124P 


2067 03040F 
2944 0 45 51F 

2704 0 4 2 3 2 P 

1192 014 3 6 P 


1389.01674P 


2 89 0 0 4472 P 
803 U0723P 
2185 03176P 


913 01054P 

1669 02306P 
2394+1 . 0344OP 

i 212 01567P 

”984 "oiis’ip" 

. 651 QG542P 

1424 01736P 
1554 02133P 
.~'3Wr‘~”M70¥P" 


538 00400P 
964 01133P 

1026 .0122 OP 

1178 014.22P 
1379 01664P 

T570.82153? 

3 Q16 0 4643P 
1927:.0 26-47P 

692 03613F 
1101-01326P 
2148 03135P 


2448 03527P 

"i22'6'.01465P 

3277 05133P 


941.01105P 


263 0C031P 


226503266P 
3107 0 474 OF 

27 05 + 5 0424 OP 

12 01 0144 7 F 


212803115F 


895 01032F 


2391+2 03436F 

1717 02356F 
_2925. 0453 OP 

1333 Q1614P 

.1102.01327P 

-- 700 00623P 

1433 017^ 7P 
1763 0243 2P 


541 00403P 
991 oneop 
1039 01233P 
1264 01526F 
1396 01703P 
.1581.0216 6 F 

.2365.G 34 21P- 

767 007 0 OP 
1317 01574P 
3 Q 37 046 6 6F 


2453 03534P 


-2666.0-416 3 P- 


268 00036P 


259604055P 
3251 05105P 


2718 04254P 
285904437P 


980 Q1145P 


2419 03472P 


1449 01767P 

14180173OP 

1012 01203P 
1439 01755P 
1872 02571P 


781 00714P 
1000 01167P 
1048 01244P 
1271 01534P 
1445 01763P 
1597.02206P 

2412.0 346 3P 

772 00705P 
1428 01742P 


2471 03556P 


26 68.0416 5P 


278 00050P 


1255 01515P 


1535 02111P 

1537Q2113P 

1055Q1253P 
1458 02000P 
1911 02632P 


824 0 0 747P 
1004 01173P 
10 53 012 51P" 
1273 01536P 
1471 02015P 
1599 02 210 P 

2421.03-47 4 P 

858 01010P 
1487 02Q34P 


3062.04 70IP 


300 00074P 


o 
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.394 

463 

.CD 

0U217P 

0 02 66 P 

Q0337P. 

4 01 
469 

.5 0 3. 

00 2 26 P 

0 0 274 P 

0 0 3 40 P 




522 

541 

0 0 3 6 3 P 

0 0 4 a 3 P 

525 

543 

0 0 3 66 P 
00405P 




.592 

675 

758 

0 0 453P 

0 0 5 71P 

00670 P 

6 42 
690 
760 

00 5 31 P 

0 0611P 
00672 P 




771 

802 

.8-43- 

0 07 04P 

0 07 22P 

0 0 7 72P. 

772 

810 
. 8 45 

0 07 05 P 

0 0 7 32 P 

0 0 7 7 4 P 




86 i 

914 

010i3P 

010 5 5 P 

864 

924 

01016P 

010 67 P 




... 96 0 

985. 

1004 

a 112 / p - 

01152 P 

0117 3 P 

9 64 
986 
10 06 

04133 P 
011 53P 
01175 P 




1016 

1043 

.1.Q42.. 

01207P 

0 12 37 P. 

4Ll.JLfi.2P~.. 

1026 
1048 
10 58. 

012 2 0 P 
012 44 P 

01267P. 




1082 

1096 

01303P 

01321P 

10 86 
1098 

013G7P 
01323 P 




.114 O' 

1142 

1201 

04337P. 

Q1364P 

014 4 7 P 

. 1111 

1147 

1240 

013 4 0 P 
01371P 
01477P 




.*.4259" 

1276 

1317 

"'0T512TP. 

Q15 41P 

. n i K.TiJp. 

.rzFr 

127 7 

.. 1 ,34.a_ 

"015224 
015 42 P 

-HI.R.7..K..S?. 




1353 

1388 

016 34P 

016 73 P 

1357 

1394 

016 40 P 
017 01P 




14 2 0 
1440 

1459 

"047'32'P... 

01756P 

020G1P 

"“442 1~ 
1445 
1469 

047 33 P 
017 63 P 

0 2 0 13 P 




1487 

1514 

. AKTL& 

02034P 

02 Q 66 P 

4.-2 R~.-.. 

14 89 

1517 

4530 

02036P 
020 71P 

...n. 2~11~4.R-- 




1548 
156 5 

02125P 

0 2i46P 

1555 

1566 

1 *# 'jJUr .Jkm S f 

02134 P 
02147 P 




.1581 

1619 

1780 

0 216'6P " . 

02232P 

Q 2 4 5.0.P.' .. 

.15 9 0 

1624 

4925- 

021 77P 
02237P 
.926 4.5 P. 




2024 
£115 
.. 24 

0 27 62 P 

0 3105 P 

Jl U __ 

2061 

2117 
_ 9457 

03032P 
03107P 




3016 

3038 

04643P 

04667P 

-w .&r w % 

3 0 20 

^ W KJr jLi u 

Q4647P 

CONTROLA E 
CONWAIT 

CORE 

.uO u 3 2. 

X 

84000 

313^ 

82 

211 

~Hr 
2183 
271 . 

G 317 4 P 

0 0 0 41P 

2.77 

00 0 47 P 




546 + 2 
660 

TWIST 5 " 

0 0552P 

0 D75fip 

- 5¥g - 
665 
_34-0. 

"OT4-47P'" 
0 0 5 5 7 P 
-00-7-67-P- 




.. 

1013 
- 1145 

01204P 

01367P 

1018 

1193 

01211P 
01437P 

COREP_____ 

...0000 2 

._.73.. 

—— 

152 3 
76 

84 7o,lP 

02077P 
0000QP 

'~'i : '4'42 - 

1528 

263 

04/bUP 
02104 P 
00 0 31P 




.. T6W 

1058 

1434 

mmizp . 

01256P 
■04 750 P- - 

. wrr 

10 36 

..1-4.4.Q-.. 

.0B733P" 

013 0 7 P 

017 5 0 P 

CP P 

0000 4 

77 

1555 

254 

02134P 

0 0 0 20 P 

1556 

261 

02135 P 

0 0 0 2 7 P 




4 06 

511 
76 0 

0 02 32 P 
0035QP 
00672P 

43-9“ 

544 

774 

00 2 HZr 

0 04 06 P 
007 06 P 




..828' 

894 

953 

.0 0753F. 

01031P 

0 112 0 P 

8if5 - 
902 
.95-6- 

007744 
01041P 
011 23P 




1010 

1079 

01201p 

013 00 P 

10.34 

1082 

012 26 P 
Q1303P 




114<£ 

1343 

1542 

Ul004P 

01624P 

0 212 0 P 

414/ 
13 67 
1543 

Ulo/1P 

016 52 P 
02121P 

CPPX 

0 0 0 0 0 

201 

".4929. 

269 

308 

0 26 51 F .'. 

U 00 37P 
00104P 

2 010' 
270 
327 

02745P' 
00 0 40 P 

0 04264- 




369 

570 

00172F 

0 0 4 3 7 P 

3 86 
588 

00210P 
004^7P 




.. . bob. 

829 

.... ~ 

00754P 

.6 5 3 

830 

U U z> h 4 r 

0 0 7 5 5 p 


.4 06 

472+1 

.508 

526 
544 
“ *6'45"' 
692 
763 
774 
811 

-852 

894 
927 
—'96-8- 
987 
10 08 

.1028 

1051 

.1069 

1088 
1100 
'1124 
1149 
1241 
1264 
1306 

.1320 

1359 

1396 

..1425 

1447 

1471 

.1492 

1520 

-.4539- 

1556 
1570 
—rs-tr- 
1626 

.1.9-29L 

2063 
. 2127 

.2798 

3028 


327 

669 
—940-. 
1023 
1325 
1448 
1553 
512 

.80 3 

1137 

1459 

268 

~46*3* 

667 

778 

.852 

908 
•96 0 
1 Q41 
1110 
~125t“ 
1384 
1545 
2063 
271 
336 
398 
59 3 
660- 
835 


0 0 2 3 2 F 
0 0276P 
0 0 345P 
00367P 
00406P 
0 0534P 
00613P 
00675P 
00706P 
GQ733P 
010 0 2 F 
010 31P 
01072P 
011 36P 
0115 4 P 
01177F 

01222P. 

01247P 

01270P. 

01311P 
0132 5 P 
01343F 
01372P 
01500P 
015£6P 
01561P 
01577P 
D1642P 
01703P 
*047 37 P' 
01765P 
02015P 

.B20 41P. 

0 2 0 74 P 
.--0-2445?-- 
02135P 
G2153P 
-022O6P 
02241P 

.0..2J65L1JL 

03034P 
6 3114F 
0-43 64P- 
04657P 


00126P 

0TS503P. 

G0563P 
_64,054P~ 
01216P 
81604P 
1)1? 64 P 
0 2132P 
00351P 

.0T042P 

01357P 

4S2--Q-Q-4P- 

CG036P 
00266F 
00561P 
0 0711P 
QT002P 
D1047P 
-0442ZP-. 
01235P 
Q1337P 
0151 OP 
01667P 
0 212 2 P 
03034P 
0 0 0 41P 

.0 0137P 

0 0 2 2 3 P 
00454P 
0 0 5 52 P 
0 0762P 


.436. 

472 + 4 
q 1 •). 

00237F... 

00301? 
n035np. 

...439. 

473 

.5 1?. 

00242P 
0Q3Q2P 
.n n 3 51 p 

535 

558 

0 0 3 7 6 P 
00426P 

538 

573 

0 0 4 0 OP 

0 0 44 OP 

652 

701 

765 

0 054 3P 

0 06 2 4 F 
00676F 

6 67 
708 

7 67 

0 0561P 

0 0 6 3 0 P 

0 0 7 0 0 P 

778 

816 

.« qfi. 

0 0711P 

0 074 OF 
~f!-i n 0 6P. 

779 

824 

.....:.« q« 

00712P 
00747P 
mm op 

902 

936 

010 41F 
0110 OF 

903 

9 53 

01042P 

Q112QP 

976 

991 

1010 

01141P 
0116 OP 

04 2 0 1F 

978 

994 

1011 

01143P 
01163P 
01202P 

1034 

1053 

. 441 . 7.2 . 

012 2 6 P 

012 5 IP 

-01 J? 7-3P. 

10 39 
1058 

.1-073. 

01233P 

01256P 

04-2-7-4 P— 

1089 

1101 

01312P 

01326P 

1091 

1103 

01314P 

013 3 0 P 

1134 

1157 

1250 

013 b 4F 
01377P 

0151 OP 

11 8 b 
1178 
1251 

01355P 

01422P 

01511P 

.4274" 

1311 
..13 34 

"04534P. 

015 6 6 P 
.01615P. 

.1273 

1314 

.1337. 

01536P 

015 7 IP 

ai-6i7P. 

1367 

1400 

016 5 2 P 

01707P 

1379 

1410 

01664P 

01721P 

14 27 
1450 
1474 

01 / 4 1 P 

017 7 0 P 

02 02 0 F 

.. 14 28 

1451 

1477 

01742P 
01771P 
02023P 

.1497 

1521 

-. 4.542 .. 

0 2 0 4 6 P 
02O75F 

...Q 2-17-0-p~. - 

1502 
15 32 
.. 45 . 4.3 . 

02053P 
02106P 
021-2-1P 

15 57 
1572 

02136F 
02155P 

1560 

1574 

02141P 

02157P 

L ' 4599 
1632 

.2-0.10:-. 

li221 0 F 
02247P 
.0 27A5.P__ 

1 6 Cb 

16 35 
.20.47. 

0 2216P 
02252P 
.0.2 7-5.4 P_ 

2075 

£141 
_mh-k 

03043P 
03126P 
.n43-7~3P-_ 

20 89 
2144 
.26-59- 

03061P 

0 313 IP 
0443 7P 

km*. U 

3030 

U *rw f r 

0 46 6 0 F 

3 0 35 

Q4664F 

345- 

00145P 

..518. 

Q0357P 

6 33 
694 

..-9-2-1. 

005 21"P. 

00615F 

.444--:&4.p..-_ 

644 

699 

.....961 

00533P 

00622P 

0413-OR 

1038 

1331 

01232F 

01612P 

10 56 
13 75 

01254P 
0166 OP 

’ "14‘88 
1583 
543 

0 20 8 8 P 

0217 OP 
004Q5P 

15 00 
15 93 
6 52 

U2051P 

02202P 

Q0543P 

.994. 

12 77 
.15 02 

.01T63P. 

Q1542P 

.0 2-05-3 P—... 

.1044" 
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03451P 
03476-P- 
0 35 1 3 F 
C3533P 
Q3545P 
0357 OP 
0 3 6 0 3 P 

.0343TP. 

03663P 
-0404OF 
04134P 
04163F 
0423 OP 
0 42 7 4 F 
04352P 
04527 F 
0454 3 P 

. 04414F 

04656P 
0471 OP 
04746P 
05014P 
0 5 0 4 2 P 
05047P 
05102P 
. 0-5125 R. 


.1644 

1685 

- .-.17 20 

1736 

1747 

“—1-743'- 

1808 

..18 38 

1863 
18 82 

-1914- 

1953 
2 011 
—'20 52 
2084 
2142 
2177 
2233 

- . 22 62 

2296 

2313 

—2321' 

2338 

2371 

2391+1 

2410 

- 2427 

2439 

2453 

.24 66 

24 83 
2494 
2498+33 
2498+65 

---. 25-92- 

2650 
24 68 
2705+4 
2741 
2806 

.49 2 7 

2944 

-. 29-8-5- 

3058 

3090 

.. 3116 

3190+1 

3216 

. 3234- 

3249 
_. 32-7-2- 


02303P 
0 2325P 
02361P 
02377P 
02412P 
02453P 
02503P 
Q2531P 
02562P 
02602P 
02637P 
0 27 0 OP 
02746P 
03022P 
03054P 
03127P 
Q3166P 
03231P 
03263P 
03304P 
03325P 
03335P 
03356P 
03415P 
43435P 
03461P 
-035 0 2 P- 
03516P 
03534P 
0355IP 
0 3 5 71P 
03604P 
0 3 546 P 
03706P 
-04 0 51P 
04137P 
04165P 
0 42 37P 
04300P 
0 4 3 7 4 P 
04532P 
04551P 
04616P- 
04675P 
04721P 
04751P 
Q5022P 
05051P 
0 5 070 P 
05103P 
-G-5126P 


1668 “ 
17 0 4 

.17 21. 

173 8 
1750 
1790 
1810 
1840 
1865 
1890 

.-.1917. 

1957 

2022 

.2058 

2088 

2150 

.2179. 

2234 

.2265. 

2298 

2314 

.••••2344- 

235 0 
2372 

. . 2396 

2411 

.2428 

2442 

2455 

—247'0“ 
2484 
2496 
2498 + 34 
2498+66 

.2596 

2652 

2670 

— .2715. 

2743 

2855 

2931 

29 57 

— .2990. 

3062 

30 92 

"...3119 

3192 

3219 

...32 35. 

3250 

— .3273. 


02305- 
02 343. 
02 3621* 
02401F 
02415? 
02462P 
02505? 
02533F 
02564+ 
0261 OP 
0 2 6 4 0 P 
0 2 7 0 4 P 
02760P 
03027? 
03060 P 
03137? 
"0317 0’;P 
03232? 
0 3 266? 
0 3 3 0 61 ? 
03326P 
03 340? 
0 3 3 7IP 
0 3 416 P 

.03443? 

03462P 
.035034- 
0352IP 
03536P 
035554 
03572? 
036061 
03647? 
03 70 7.P 
04055,? 
04141P 
04167? 
04251? 

0 4 3 0 2 F 
0 4433; 

0 4 535? 
04565P 
04622? 
04701F 
0 4 7 2 3 P 
0 4 75 4 P 
05 023 P 
05054 P 
05073? 
05104? 
05127? 


. 731 . 

1390 
2 79-1- 
2851 
2876 
"2"8'9'3~ 
2914 


00653P" 
016 7 5 P 

04356P. 

04427P 
04456P 
044 74P- 
04516P 


.742.0066QP 

1644 0226 OP 
-28 3 8 -044-14-P- 
2852 0 443 0 P 
2877 04457P 
-2 8 95 0 4476F 


1986 02736P 
-2 8-40 0 4416P 
2863 Q4442P 
2880 0 44 6 IP 
290104503P 


1213 .01456? 

2082 03052P 
284404421? 
2864 04443? 
2882 G4463F 
2905 045061- 


2498+13 03623P 
2394 03437P 


2856 04434F 

2857 04435P 


o 




















































